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FORTRAN ERROR MESSAGES 
SYNTAX ERROR 
MrSSING OPERATOR OR PUNCTUATION 


CONFLICTING COMMON AND/OR EQUIVALENCE ALLOCATION 


MrSStNG RIGHT PARENTHES?S 

ENTRY STMT ILLEGAL IN MAIN PGM OR BLOCK DATA 
MrSSING FND STATEMENT 

ARITHMETIC EXPRESSION RrQuIREn 

LoatcAL FXPReESSTON ReQuyRep 

TOO MANY LeFT PaRENTHESRS 

TOO MANY RYGHT PARENTHESES 

FORMAL PARAMETER ILLEGAL 1N COMMON 

FORMAL PARAMETER [TLLEGAL YN EQUIVALENCE 


THIS STATEMENT ILLEGAL IN BLOCK DATA SUBPROGRAM 


INFO ARRAY OVERFLOW 

IMPROPER DO NEST 

Do LABEL PREVIOUSLY DEFINED 

UNRECOGNIZED STATEMENT TYPE 

ILLEGAL DO STATEMENT 

FORMAT STATEMENT MUST HAVE LABEL 
UNDEFINED LABEL 

MULTIPLE DEFINITION 

ILLEGAL IDENTIFIER CLASS IN THIS CONTEXT 
UNPATRED QUOTES IN FORMAT 

NOT FNOUGH SUBSCRIPTS 

TOO MANY SUBSCRIPTS 

FUNCTION OR SUBROUTINE PREVIOUSLY DEFINED 
FORMAL PARAMETER MULTIPLY DEFINED IN HEADING 
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% THE CONCEPTS OF CHARACTER CONVERSION FROM 

2 HOLLERITH C= EBCDIC)»+ SCANNINGs AND PARSING ARE NOT CLEARLY SEPARATED 
% FOR EXAMPLE» PROCEDURE ean TRIES TO DO ALL 3 AT ONCE. 
% 
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s COMPILE FORTRAN/DISK WITH ALGOL LIBRARYSALGOL STACK=100 
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00000000 
00001000 
00001010 
00001011 
00001012 
00001013 
00001014 
00001015 
00001016 
00001017 
00001018 
00001019 
00001020 
00001100 
00001105 
00001110 
00001115 
00001120 
00001900 
00002000 
00003000 
00004000 
00005000 
00006000 
00007000 
00008000 
00009000 
00010000 
00011000 
00012000 
00013000 
00034000 
00045000 
00016000 
00017000 
00018000 
00019000 
00020000 
00021000 
00022000 
00023000 
00024000 
00025000 
00026000 
00027000 
00028000 
00029000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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0000 
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0000 
0000 
0000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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027 
028 
029 
030 
034 
039 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
054 
059 
053 
054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
074 
0792 
073 
074 
075 
076 
077 
078 
079 
080 
081 
082 
083 


tLLeGAl USF OF NAMELYST 

NUMBER OF PARAMETERS yNcONSYSTENT 

CANNOT BRANCH TO FORMAT STATEMENT 

SUBROUTINE OR FUNCTION NOT DEFINED 1N PROGRAM 
IDENTIFIER ALREADY GIVEN TYPE 

TL.LEGAL FORMAT SYNTAX 

INCORRECT USE OF FILE 

INCONSISTENT USE OF IDENTIFIER 

ARRAY IDENTIFIER EXPECTED 

EXPRESSION VALUE REQUIRED 

1],LEGAL FILE CARD SYNTAX 

I,.LEGAL CONTROL ELEMENT 

DFCLARATION MUST PRECEDE FIRST REFERENCE 
INCONSISTENT USE OF LABEL AS PARAMETER 

NOe OF PARAMS, DISAGREES WITH PREV» REFERENCE 
ILLEGAL USE OF FORMAL PARAMETER 

FRROR IN HOLLERITH LITERAL CHARACTER COUNT 
ILLEGAL ACTUAL PARAMETER 
TOO MANY SEGMENTS IN SOURCE PROGRAM 

TOO MANY PRT ASSIGNMENTS TN SOURCE PROGRAM 
LAST BLOCK DECLARATION HAN LESS THAN 1024 WORDS 
ILLFGAL 170 LIST ELEMENT 

Leet StDE MUST Be SIMPLF OR SUBSCRIPTED VARIABLE 
VaARYABLE EXPECTED 

TLLEGAL USE OF ,OR, 

TLLEGAL USF OF ,AND, 

TLLEGAL USE OF ,NOT, 

T.LEGAL USE oF RELATIONAL OPERATOR 

1).LEGAL MIXED TYPES 

1).LEGAL EXPRESSION STRUCTURE 

T)LEGAL PARAMETER 

RECORD BLOCK GREATER THAN 1023 

ToO MANY OPTIONAL FILES 

FILE CARDS MUST PRECEDE SoURCE DECK 

BINARY WRITE STATEMENT HAS NO LIST 

UNDEFINED FORMAT NUMBER 

ILLEGAL EXPONENT IN CONSTANT 

ILLEGAL CONSTANT IN DATA STATEMENT 

MAIN PROGRAM MISSING 

PARAMETER MUST BE ARRAY IDENTIFIER 

PaRAMETER MUST BE EXPRESSJON 

PARAMETER MUST BE LABEL 

PaRAMETER MUST BE FUNCTION IDENTIFIER 
PARAMETER MUST BE FUNCTION OR SUBROUTINE ID 
PARAMETER MUST BE SUBROUTTNE TDENTIFIER 
PARAMETER MUST BE ARRAY IDENTIFIER OR EXPRESSION 
ARITHMETIC = LOGICAL CONFLICT ON STORE 
ARRAYTD MUST BE SUBSCRIPTED IN THIS CONTEXT 
MORE THAN ONE MAIN PROGRAM 

ONLY COMMON ELEMENTS PERMYTTED 

ToO MANY FILES 

FORMAT OR NAMELIST ToO LONG 

FoRMAL PARAMETER MUST BE ARRAY IDENTIFIER 
FaRMAL PARAMETER MUST BE SIMPLE VARIABLE 
FORMAL PARAMETER MUST BE FUNCTION IDENTIFIER 
FORMAL PARAMETER MUST BE SUBROUTINE IDENTIFIER 
FORMAL PARAMETER MUST BE FUNCTION OR SUBROUTINE 


00030000 
00031000 
00032000 
00033000 
00034000 
00035000 
00036000 
00037000 
00038000 
00039000 
00040000 
00041000 
00042000 
00043000 
00044000 
00045000 
00046000 
00047000 
00048000 
00049000 
00050000 
00051000 
00052000 
00053000 
00054000 
00055000 
00056000 
00057000 
00058000 
00059000 
00060000 
00061000 
00062000 
00063000 
00064000 
00065000 
00066000 
00067000 
00068000 
00069000 
00070000 
00071000 
00072000 
00073000 
00074000 
00075000 
00076000 
00077000 
00078000 
00079000 
00080000 
00081000 
00082000 
00083000 
00084000 
00085000 
00086000 
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0000 
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0000 
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0000 
0000 
0000 
0000 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 


eran oe 


C) 


Cy 


084 
085 
086 
087 
088 
089 
090 
094 
099 
093 
094 
095 
096 
097 
098 
099 
400 
104 
102 
103 
104 
405 
106 
107 
108 
409 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
124 
12? 
123 
124 
125 
126 
127 


128 


129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
440 


Do OR IMPLIEN DO INDEX MUST Be INTEGER OR REAL 
ILLEGAL COMPLEX CONSTANT 

ILLEGAL MIXEnN TYPE STORE 

CONSTANT EXCEEDS HARDWARE LIMITS 

PARAMETER TYPE CONFLICTS WITH PREVIOUS USE 
COMPLEX EXPRESSION ILLEGAL IN IF STATEMENT 
COMPLEX EXPRESS1ON ILLEGAL IN RELATION 

ToO MANY FORMATS REFERENCED BUT NOT YET FOUND 
VaARTABLE ARRAY BOUND MUST BE FORMAL VARY ABLE 
ARRAY BOUND MUST HAVE INTEGER OR REAL TYPE 
COMMA OR RIGHT PARENTHESIS EXPECTED 

ARRAY ALREADY GIVEN BOUNDS 

ONLY FORMAL ARRAYS MAY BE GIVEN VARTABLE BOUNDS 
MrSSING LEFT PARENTHESIS tN IMPLIED DO 
SUBSCRIPT MUST BE INTEGER OR REAI, 

ARRAY SIZE CANNOT EXCEED 32767 WORDS 

CaMMON OR EQUIV BLOCK CANNOT EXCEED 39767 WORDS 
THIS STATEMENT ILLEGAL IN LOGICAL IF 

REAL OR INTEGER TYPE REQUIRED 

ARRAY BOUND INFORMATION REQUIRED 

RFPLACEMENT OPERATOR EXpECTED 

IDENTIFIER EXPECTED 

LEFT PARENTHESIS EXPECTED 

ILLEGAL FORMAL PARAMETER 

RIGHT PARENTHESIS EXPECTED 

STATEMENT NUMBER EXPECTFO 

SLASH EXPECTFD 

ENTRY STATEMENT CANNOT START PROGRAM UNTT 
ARRAY MUST Br DIMENSTONFD PRIOR TO EQUIV STMT 
INTEGER CONSTANT EXPrFCTFD 

COMMA EXPECTED 

SASH OR END OF STATEMENT EXPFCTED 

FORMATs ARRAY OR NAMELIST EXPRCTED 

END OF STATEMENT EXPeCTFD 

TO STATEMENT WITH NAMELYST CANNOT HAVE 10 LIST 
COMMA OR END OF STATEMENT EXPECTED 

STRING TOO LONG 

MrSSING QUOTE AT END OF STRING 

11 LEGAL ARRAY BoUND 

ToO MANY HANGING BRANCHES 

TaO MANY COMMON OR EQUIVALENCE ELEMENTS 
ASTERISK EXPECTED 

CoMMA OR SLASH EXPECTED 

DaTA SET TOO LARGE 

TOO MANY ENTRY STATEMENTS IN THIS SUBPROGRAM 
DECIMAL WIDTH EXCEEDS FIELD WIOTH 

UNSPECIFIED FIELD WIDTH 

UNSPECIFIED SCALE FACTOR 

ILLEGAL FORMAT CHARACTER 

UNSPECIFIED DECIMAL FIELD 

DECIMAL FIELD ILLEGAL FOR THIS SPECIFIER 
ILLEGAL LABEL 

UNDEFINED NAMELYST 

MULTIPLY DEFINED ACTION LABELS 

TOO MANY NESTED NO STATFMENTS 

STMT FUNCTION 1p AND EXPRESSION DISAGREE IN TYPE 
TLLFGAL USE OF STATEMENT FUNCTION 


00087000 
00088000 
00089000 
00090000 
00091000 
00092000 
00093000 
00094000 
00095000 
00096000 
00097000 
00098000 
00099000 
00100000 
00401000 
00102000 
00103000 
00404000 
00105000 
00106000 
00107000 
00108000 
00109000 
004110000 
00411000 
00412000 
00113000 
00114000 
00115000 
00416000 
001417000 
00118000 
00419000 
00120000 
00121000 
00422000 
00423000 
00124000 
00125000 
00126000 
00127000 
00128000 
00129000 
00130000 
00131000 
00132000 
00133000 
00134000 
00435000 
00136000 
00437000 
00438000 
00139000 
00140000 
00141000 
00142000 
00143000 
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PRT¢22) 
PRT¢23) 
PRT ¢o4) 


PRT(25) 
PRT(26) 
PRT(27) 


PRTC30) 
PRTC31) 
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144 
142? 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
164 
165 
166 
167 
168 
169 
170 
171 
172 
-173 
174 
175 
176 
177 
178 
179 
480 
181 
162 
183 
164 
3 
BEGIN 


UNRECOGNIZED CONSTRUCT 

RETURNs STOP OR CALL EXtT REQUIRED JN SUBPROGRAM 
FoRMAT NUMBER USED PREVIOUSLY AS LABEL, 

LABEL USED PREVIOUSLY AS FORMAT NUMBER 
NON*STANDARD RETURN REQUIRES LABEL PARAMETERS 
DaUBLE OR COMPLEX REQUIRES EVEN OFFSET 

FORMAL PARAMETER ILLEGAL IN DATA STATEMENT 

ToO MANY LOCAL VARIABLES IN SOURCE PROGRAM 

A $FREEFORM SOURCE LINE MUST HAVE < 67 COLS 

A HOL/STRING UNDER SFREEFORM MUST BE ON ONE LINE 
THIS CONSTRUCT IS ILLEGAL IN TSS FORTRAN 
ILLEGAL FILE CARD PARAMETER VALUE 

ReTURN IN MAIN PROGRAM NOT ALLOWED 

NON®POSITIVE SUBSCRIPTS ARE ILLEGAL 
NON*“1DENTIFIFR USED FOR NAME OF LIBRARY ROUTINE 
HYPHEN EXPECTEN 

SFQUFNCE NUMRER EXPECTEN 

TOO MANY RECURSIVE CALLS ON LIBRARY ROUTINES 
ASTERISK NOT ALLOWED IN READ STATEMENT 

ASTERISK ONLY ALLOWED IN FREE FIELD OUTPUT 

TOO MANY **FH LIST ELEMFNTS IN OUTPUT 


HOL OR QUOTEnN STRING GREATER THAN 7 CHARACTERS IN EXPRESSION 


PLUS NOT ALLOWED JN THrS FORMAT PHRASE 
K NOT ALLOWED IN THIS FORMAT PHRASE 
$ NOT ALLOWED IN THIS FORMAT PHRASE 


INTRINSICS@NAMED FUNCT MUST HAVE PREVIOUS EXTERNAL REFERENCE, 


DATA STMT COMMON ELEM MUST BE IN BLK DATA SUBPRM 


VARIABLE CANNOT BE A FORMAL PARAMETER or IN COMMON 


CURRENT SUBPROGRAM ID EXPECTED 
SUBPROGRAM*® EXTERNAL® OR ARRAY ID EXPECTED 


REPEAT» WIDTH* AND DECIMAL PARTS MUST BE LESS THAN 4091 


RFPEAT PART MUST BE EMPTY OR >0 AND < 4091 

In SUBPRGMSVARBL IS USEN PRIOR TO USE IN DATSTMT 
SYNTATICAL TOKEN CONTAINS TOO MANY CHARACTERS» 
INTEGER VALUE OF 8 EXPECTED 

INTEGER VALUE OF 4 EXPECTED 

INTEGER VALUE OF 4 OR 8 EXPECTED 

AN ALPHABETIC LETTER CAsBsCoeaneZ) IS REQUIRED 
SFCOND RANGE LETTER MUST BE GREATER THAN FIRST 
IMPLICIT MUST BE FIRST STATEMENT IN PROGRAM UNIT 
REAL/INTEGER/LOGICAL/COMPLEX/DOUBLEPRECYSION REQ 
TLLEGAL USE OF ASTER?SK FOR RUN©TIME EDITING 

NO PROGRAM UNTT FOR THIS END STATEMENT 


*L1ST, LABELs OR SEGMENT DESCRIPTOR 
*OUTER BLOCK nESCRYPTOR* 
*SEGMENT DESCRIPTOR* 


INTEGER ERRORCT$ ComMENT MUST BE FIRST DECLARED VARIABLE? 


ERRORCT 


INTEGER SAVETIMES COMMENT MUST BE 2 ND DECLARED VARIABLE? 


SAVETIME 


INTEGER CARDCOUNT®ESTIMATEsSEQERRCT 3 


CARDCOUNT 
ESTIMATE 
SEQGERRCT 


00443001 
001443002 
00443003 
00143004 
00143005 
00143006 
00143007 
00143008 
00143009 
00143010 
001430114 
00143012 
00143013 
00143014 
00143015 
00143016 
00143017 
00143018 
001443019 
00143020 
001430214 
00443022 
00143024 
00143025 
00443076 
001443097 
00443028 
00143029 
00143030 
00143031 
00143032 
00143033 
00143034 
00143035 
00143036 
00143037 
00143038 
00443039 
00143040 
0014430414 
00143042 
00143043 
00143044 
004143999 
00144000 


START OF SEGMENT 


00145000 
00146000 


00147000 


0000 
0000 
0000 
0000 


0000 
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PRT(32) 
PRT(33) 
PRT¢34) 


PRT(¢35) 
PRT¢36) 
PRT¢37) 
PRT¢40) 


PRT¢44) 
PRT¢4a) 
PRT¢43) 
PRT¢44) 
PRT¢€45) 
PRTC 46) 
PRTC47) 
PRT(€50) 


PRT(51) 
PRT(52) 
PRT(53) 
PRT(54) 


PRT¢55) 
PRT(56) 


PRT¢57) 
PRT(¢60) 
PRT(61) 
PRT¢62) 


PRT(63) 


PRT(64) 
PRT(65) 


PRT(66) 
PRT(67) 


PRT(70) 
PRTC71) 
PRT(72) 
PRT(73) 
PRTC7A) 


PRT¢75) 


u 


a nana u 


aug 


aon g a 


ioutoa 


ti 


su 


INTEGER SWARYCT3 
SWARYCT 
REAL TWODPRTX3 
TWODPRTX 
REAL IN tTIALSEGNOS 
INTTIALSEGNO 
REAL NEXTs FNEXTs NAME» NUMTYPE? 


REAL Ap Bs te Je Py Ts TSp Z3 


Naa vom OS 


REAL RTY$ & START COMPILE TIME 
RT! 
REAL EXPVALUEs® EXPRESULT® EXPLINK3S 
EXPVALUE 
EXPRESULT 
EXPLINK 
REAL SPLINKe FUNVARS 
SPLINK 
FUNVAR 
REAL DATAPRTsDATASTRT»sDATALINK se DATASKP? 
NATAPRT 
NATASTRT 
NATALYNK 
NATASKP 
BOOLEAN SCANENTER $ & TRUE {FF SCAN JUST DID AN ENTER ON AN ID, 
SCANENTER 
DEFINE NUMINTM{= 
83 
#3% NUMINTMY IS THE NUMBER OF INTRINSICS MINUS ¢$ FOR EACH NEW INTRINSIC 
x WHICH IS ADDED» ADD 1 To THE VALUE ON SEQ# 001552116 
DEFINE MAXEL=15#3 
REAL ARRAY ENTRYLINKCOMMAXELI? 
ENTRYLINK 
REAL ELX3 
ELX 
ALPHA FNEWs NNEWS3 
FNEW 
NNEW 
REAL LARELMOM}3 
LABELMOM 
INTEGER LOCALS» PARMSsPRTSsFLAGROUTINECOUNTER 3 
LOCALS 
PaRMS 
PRTS 
FLAGROUTINECOUNTER 
REAL LIMITs VOINTSFAs 
LUMTT 


00147500 
00148000 
00149000 
00150000 


00451000 


00152000 
00153000 


00155000 


00155100 


00155110 
00155210 
00455211 
00155212 
00155213 
00156000 
00157000 


00158000 
00159000 


00160000 
00161000 


00161010 
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0000 
0000 
0000 
0000 


0000 


0000 


0000 


0000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0001 


0001 


0001 
0001 


0001 
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PRT(76) 

PRT(77) 

PRT¢100) 
PRT¢101) 
PRT(102) 
PRTC€103) 
PRT(104) 
PRTC105) 
PRT(106) 
PRTC107) 
PRT¢110) 
PRTC111) 
PRT¢112) 


PRT(116) 
PRYC117) 


PRT¢120) 
PRT¢191) 
PRTC192) 
PRT(123) 
PRT¢124) 
PRT¢125) 
PRT¢126) 
PRT¢197) 
PRT¢130) 
PRT¢131) 
PRT¢4132) 


oan on 


uo oa Huan 


uo 
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VOTDTSFA 
REAL IDrNeOe TYPEs NSEG3 
TOINFO 
TYPE 
NSEG : 
REAL FXq» FX2s FX3» NX1» NX2e NX3F 
FX{ 
FX2 
FX3 
NX4 
NX2 
NX3 
INTEGER LENGTH» LOWERBOUNDe GROWPPRTS 
LENGTH 
LOWERBOUND 
GROUPPRT 
ALPHA FQVIN» INTIDe REALID 3 
FAVID 
INTID 
REALIN 
INTEGER ROOTs ADRS 
ROOT 
ADR 
INTEGER LASTMODE 22% = 1 FOR SCARD3 = 2 FOR STAPE, 
LASTMODE 
BOOLEAN ERRORTOGs»ZPREVIOUS LISTED RECORD, 
FRRORTOG 
EOSTOGeZEND OF STMT TOGGLE, 
EOSTOG 
CODETOGeSZLIST CODE GENERATEDe. 
CODETOG 
TAPETOGs%SMERGE TAPE INPUT, 
TAPETOG 
EOQODSeZEND OF DECLRSTMTS, RESET BY ENDS, 
FODS 
; FILFTOGs%PROCESSING Frtle CARDS, 
FILETOG 
DEBUGTOG»%TO LYST OUT ENTERING AND EXITING PROCEDURES, 
DEBUGTOG 
DESCREQ,%DFSCRIPTOR ReQuTRED, 
DESCREA 
XREFe%TO CREATE XReEF OF PROGRAM, 
XREF 
SAVETOG#Z2VARIOUS BOOLEANS, 
SAVETOG 
DEFINE LIBTAPE = SAVETOGs£47%¢]#e3USE To SAVE NEW WHILE INCLUDE, 
SAVEDEBUGTAG = SAVETOGs+(4631]#*3SAVE DFBUGTOG WHILE IN SINCLUDE, 
SAVECODETOG = SAVETOGs(4581]#*2SAVE CODETOG WHILE IN SINCLUDE. 
SAVEPRTTOG = SAVETOG®[44s1]4*2S5AVE PRTOG WHILE IN SINCLUDE. 
SAVELISTOG = SAVETOGeL43:1]#°4SAVE LISTOG WHILE IN SINCLUDEe 
VOIDTOG = SAVETOGe(42:1)]#54TO VOID CARDS OR TAPE 
DATASTMTFLAG = SAVETOGe(4141]4¢4WHILE IN DATA STMTS, 
F2T0G = SAVETOGe [408i] #*#4ADDR REL TO Fe, 
CHECKTOG = SAVETOGe£39%1]#»4SEQ # CHECKe 
LISTOG = SAVETOGe£3851]#9%TO LIST OUTPUT, 
LISTLIBTOG = SAVET0OG+£37!1]#e3T0 LIST LIBRARY OUTPUT, 
SEQTOG = SAVETOG,(3681]#/4TO RESFQ INPUTS, 


00162000 


00163000 


00164000 


00165000 


00166000 


00166100 
00167000 
00168000 
00168200 
00168400 
00468500 
00168600 
00469000 
00469020 
00469030 
00169050 
00169053 
00169054 
00169055 
00169056 
00169057 
00169058 


00169059 
00169060 
00169061 
00169062 
00169063 
00169064 
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ee ee ee ee ee 


0001 


0001 


0001 


0001 


00014 


0001 
0001 
0004 
0004 
0004 
0001 
0001 
000; 
0004 
0001 
0004 
0001 
0001 
0001 
0001 
000! 
0001 


0001 
0001 
0001 
0001 
0001 
0001 


“y 
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oS 


CO 
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PRTC133) 


PRTC134) 
PRT¢135) 


PRT¢136) 


PRTC137) 


PRT¢140) 
PRT¢141) 


PRT¢142) 
PRT¢143) 


SEQERRORS = SAVETOG«C35°81]#e41F SEQUENCE ERRORS. 

TIMETOG = SAVETOGs£3431)#,4TO LIST WRAPUP INFO ONLY, 

PRTOG = SAVET0G.£3324]4s%T0 LIST STORAGE MAP, 

NEWTPTOG = SAVETOG,£32%1]#+2CREATE NEW SYMBOLIC TAPE, 
SINGLE TOG = SAVETOGer31!1}4e2TO LIST OUTPUT SINGLE SPACED, 
SEGOVFLAG = SAVETOG.63024)4-4SEGMENT OVERFLOW, 

FYRSTCALL = SAVETOR,£2984]#,%T0 LIST COMPILER HEADING, 
RETURNFOUND = SAVETOG.628%4)#,ZRETURN,CALL EX1T»STOP FOUND. 
ENDSEGTOG = SAVETOG.©27%4)]#2SEND OF SEGMENT. 

LOGIFTOG = SAVETOG.£ 2634) #e4PROCESSING LOGICAL IF STMT, 
NOTOPIO = SAVETOGe( 2514 1]#» 

DATATOG = SAVETOGe( 2484 ]#*e3WHILE IN DATA STMTS, 

FREEFTOG => SAVETOG® [23:1] #*3FREE FIELD INPUT. 

SEGPTOG = SAVETOGs{22:1]#s4DONT PAGE AFTER SUBPRGM 
GLOBALNAME = SAVETOGs(21:1]#e4TO WRITE ALL IDENTIFIERS, 
NAMEDESC = SAVETOG+{2081]#»41F GLOBALNAME OR LOCALNAME TRUE, 
LOCALNAME = SAVETOG«{£1921]#e%TO WRITE AN IDENTIFIER, 
TSSEDITOG = SAVETOGe [1821] #TSSEDIT. 

UNPRINTED = SAVETOGs(1781]#e4T0 LIST CARDs FALSE IF LISTED, 
DCINPUT = SAVETOGe(16tiJ}#e31F USING TSS FORTRAN, 

SEGSW = SAVETOGs(1531]#22TO MAINTAIN LINEDICT/LINESEGs 
TSSMESTOG = SAVETOG>(14¢1] #eSTSSMESCERRMES), 

WARNED = SAVETOGaL1L3%1]#+31F TSSEDIT WAS EVER EVOKED, 
SEGSWFIXED = SAVETOG«L12°1] #e21F SEGSW YS NOT TO BE ALTERFO, 
REMFIXED = SAVETOG.rilt1)]#,31F REMOTETOG ISNT TO BE ALTFRED. 
REMOTETOG = SAVETOG.ri0%;]%eZPRINT & READ STMTS = REMOTE. 
RANDOMTOG = SAVETOG.¢© 981)#,%1F EXPR USED FOR RANDOM 1/0, 
VOYDTTOG = SAVETOG,r 8%414s2T0 VOID TAPE RECORDS ONLY, 
NOLTST = SAVETOG.¢ 781]#,3L1ST DOLLAR CARDS, 

HOLTOG = SAVETOG.r 684)4#,%INPUT }N HOLLERITH, 

LISTPTOG = SAVETOG.r 5#1]#e3L1ST PATCHES ONLY, 

PXREF = SAVETOG.C 434)#»3TO LIST XREF OF PROGRAM, 
LASTLINE = SAVETOGs£ 341)7#94TO DETR To SKIP XREF, 

XGL,OBALS = SAVETOGs£ 2:4]#94TO LET XREF KNOW OF DOING GLOBAL 
NTAPTQG = SAVETOGeE 18:1]#°4To CLOSE NEWTAPE IF EVER OPENED 
SEENADOUB = SAVETOGs([4031]#*4ARRAYDEC WONT BE USING THIS 


| BWHILE WE FIX DP COMMON ARRAY SZ 
ENDSAVTOGDEFFS#3 
ARRAY SSNMEO!818) 3 % THESE WORDS ARE USED FOR TEMP STORAGE AND STORING 
SSNM , 
% PERMANENT FLAGGED DATA, 
DEFINE LASTSEQ=SSNMCLOJ]#+ LASTERR=SSNMCiJ#@s LINKLIST=SSNMCL2]4 $ 
DEFINE VOINSEQ=SSNME3] @ 3 
ALPHA ARRAY ERRORBUFFsPRINTBUFF(Of14] 3 
FRRORBUFF 
PRINTBUFF 
ARRAY INLINEYNT(£O235) 3 
INLINE INT 
DEFINE xRBUFF = 150#2 XRBUFFDIV3=50 #3 
ARRAY XRRYLOPXRRUFE M1) 3 
XRRY 
INTEGER SFORBASEsSEQINCRS 
SFOBASF 
SEQ INCR 
INTEGER SCNsLABLeNEXTSCN »sNEXTCARDS 
SCN 
LABL 


00169065 
00169066 
00169067 
00169068 
00169069 
00169070 
00169071 
00469072 
00169073 
00169074 
001469075 
00169076 
00169077 
00169078 
00169079 
00169080 
00169081 
00169082 
00169083 
00169084 
00469085 
00169086 
00169087 
00169088 
00469089 
00469090 
00169091 
00769092 
00169093 
00169094 
00469095 
00169096 
00469097 
00169098 
00169099 
00169100 
00169102 
00169199 
00169200 


00169201 
00169210 
00169220 
00169300 
00469310 


00169320 
00169330 


00170000 


00174000 


AAA AAA A HH HAHAH HAHA A HAS HAHA TTA HAH A tH 


i a 


0001 
0004 
000; 
0001 
0004 
0004 
0004 
0004 
0004 
0004 
00014 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0004 
0004 
0001 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0004 
0001 
0001 
0004 
0001 
0004 
0001 


0003 
0003 
0003 
0003 
0005 


0007 
0007 


0010 


0010 


( ‘e) () C) 


Ca 4) 


Oe foe OF sO. 2. a 


CC 


QO) 


PRT¢€144) 
PRT(145) 


PRTC146) 


PRT¢151) 
PRT¢€152) 
PRT¢153) 
PRT¢154) 
PRTC155) 


PRT¢(156) 
PRT¢157) 


PRT¢160) 
PRT¢(161) 


PRT(162) 
PRTC163) 


PRT€164) 
PRT(165) 
PRT¢€166) 
PRTC167) 


PRTC170) 
PRTCA71) 


PRTC172) 
PRT¢173) 
PRT¢174) 
PRT¢175) 
PRT¢176) 


PRTC177) 
PRT(200) 


PRT¢201) 
PRTC202) 


PRT(203) 
PRT(204) 


PRT(205) 
PRT(206) 


bi Wie 


u ou 


uu u 


tt] 


NEXTSCN 
NEXTCARD 

INTEGER SAVECARD3 % TO SAVE NEXTCART WHILE IN $ INCLUDE 
SAVECARD 

INTEGER RESULT* INSERTDEPTH$ 
RESULT 
INSERTDEPTH 

REAL INCLUDE3 % CONTAINS "INCLUDE" 
INCLUDE 

REAL DERUGADR 3 
NEBUGADR 

ALPHA ACRO-s CHROe INITIALNCR?3 
acRO 
CHRO 
TNITTALNCR | 

ALPHA AcRs NCR$ 
ACR 
NCR 

SAVE ARRAY TyrPEf02631 3 
TIPE 

REAL LASTNEXT 3 
LASTNEXT 

ALPHA NEXTACCs NEXTACCO3 
NEXTACC 
NEXTACC2 

ALPHA BrANKS3 
BLANKS 

ALPHA XTA$ 
XTA 

ALPHA ARRAY EDOCLO:7* 0:12713 COMMENT HOLDS CODE EMITTED} 
ENoc 

ALPHA ARRAY HOLDID£L0:2); 
HOLDID 

REAL NXaViLeSTRTISEG} 
NXAVTL 
STRTSEG 
ae ALPHA ARRAY WOPf0%13973 % HOLDS NAME AND CODE OF WORD MODE OPERATORS 
W 

SAVE ALPHA ARRAY DReTBeCBLOt9], 
NB 
TB 
CB 

CRDLO%1493 

CRD 

ALPHA ARRAY XRLO?39]! INTEGER XRI3 
XR 
XRI 

SAVE ARRAY ACCUMs EXACCUME 0320] 3 
ACCUM 
EXACCUM 

REAL ACCUMSTOPs» EXACCUMSTOP 3 
ACCUMSTOP 
FXACCUMSTOP 

REAL DBL.OW3 
NBLOW 

REAL MAx$3 
MAX 


00174100 


00174200 


00174300 
00174310 
00175000 


00176000 


00176500 
00476502 


00177000 


00178000 
00179000 
00180000 
00181000 


00482000 
00183000 
00184000 
00485000 
00185100 
00186000 
00186100 


00187000 
00188000 


0010 


0010 


0010 
0010 
0010 


0010 


0010 
0012 


0012 


0012 
0012 
0012 
0014 


0016 


0016 


0017 


0020 


0024 


0023 


0025 


0025 
0025 


C) 


O 
i 


C) 


O 


C) 


C) 


C) 


) 


C) 


() 


QO 


O 


on 


PRT(207) 
PRT¢€240) 


PRTC211) 


PRT¢(212) 


PRT¢213) = 


PRT¢244) 


PRT(215) 
PRT(216) 


PRTC217) 
PRT(220) 
PRT(221) 


PRT(222) 
PRT(223) 


PRTC224) 
PRTC225) 


PRT¢226) 
PRT¢227) 
PRT¢230) 
PRT¢(231) 
PRT(232) 
PRT(233) 
PRT(234) 
PRT(235) 
PRT(236) 
PRT(237) 
PRT(240) 
PRT¢241) 
PRT¢242) 
PRT¢243) 
PRT(244) 


PRT(¢245) 
PRT(246) 


ou 


nuit 


Wow 


un 


nou 


n 


f 


" 


w 


nit 


How it 


ALPHA ACRis CHRIS 


ACR4 
CHRI 

ALPHA ARRAY PFRIODWORDLOF10)3 
PrRrOnWwORD ‘ 

REAL ARRAY MAPLOt7]3 
MAP ; 

REAL Fi, F2? 
Fi 
FO 

INTEGER Cys Ca3 
C1 
C2 

DEFINE 

RSP=14 #» RSP{515 #e RWP=29 #» 
RSH=41 #e RSH1=42 #» RWS=83 #3 

ALPHA ARRAY RESFERVEDWORDSLPLO:RWPJ»* RESLENGTHLPeLPGLOBALLOIRSP I)» 
RESERVEDWORDSLP 
RESLENGTHLP 
LPGLOBAL 

RESERVEDWORDS [cOsRWSJ+ RESLENGTH CO?RSHI 

RESERVEDWORDS 
RESLENGTH 

SAVE REaL ARRAY PRe OPST £0825]; 3% USED JN FXPR ONLY 
PR 
OPST . 

DEFINE PARMLYINK = LSTT#s 

ALPHA BUFF se BUFLs SYMBOLS 
BUFF 
BUFL 
SYMBOL 

INTEGER TVs X% INDEX INTO INFO FOR PRT OF LIST NAMES 

SAVESUBSe % MAX NUMBER OF SUBSCRIPTS FOR NAMELIST IDENTIFIERS 
SAVESUBS 
NAMEINDS & INDEX INTO NAMLIST IDENIFIERS ARRAY 

NAME IND 

ARRAY NAMLIST£EO:256]3 % ARRAY TO STOKE NAMELIST IDENTIFIERS 
NAMLIST 

ALPHA LISTID3 
LISTID 

REAL ARRAY BDPRT£0:20)3 REAL RDX? 
BOPRT 
BDX 

DEFINE MAXSTRING = 49#3 

ALPHA ARRAY STRINGARRAYLOMMAXSTRINGI3 
STRINGARRAY 

REAL STRINGSIZE: % NUMBER OF WORDS IN STRING 
STRINGSIZE 

NEF INE LSTMAX = 256#3 

REAL ARRAY LSTT, LSTPLOSLSTMAX]3 
LSTT 
LSTP 

INTEGER LSTIeLSTSe,STA 
LST! 
LSTS 
LSTA 


00189000 


00190000 
00191000 


00192000 


00193000 


00194000 


00194020 
00194040 


00195000 


00195010 


00196000 


00197000 
00198000 


00199400 
00199120 
00199130 
00199200 
00199300 
00200000 
00201000 
00202000 
00203000 
00204000 
00205000 


00206000 


A A444 


0025 


0025 
0027 
0029 


0029 


0029 


0029 
0029 


0029 


0033 


0036 


0038 
0038 


0038 
0038 
0038 
0038 
0040 
0040 
0041 
0041 
0043 
0043 
0043 


0045 


C} 


'@) 


PRTC247) 


PRT(250) 
PRTC251) 
PRT(¢252) 
PRT¢(253) 
PRT¢254) 
PRT(255) 
PRT¢€256) 
PRT(257) 
PRT¢ 260) 
PRT¢261) 
PRT(262) 
PRT(263) 
PRT (264) 
PRT¢265) 


PRT(266) 
PRT(267) 


PRTC270) 
PRTC271) 
PRT(272) 


PRTC273) 
PRTC274) 
PRT(275) 


PRT(276) 


PRT¢277) 


_ 
- 


= 


tou 


uo 


Hy Wot u tT v tt 


nui 


at nun ft 


DEFINE MAXOPF 
ARRAY FILE INF 


FILE TNFO 


DEFINE 


ILES 
oros 
% SOM 
SLOWV 
FASTV 
SENSPDEU 


FPBVERSI 
FPBVERSF 
DKAREASZ 


FNoFILDEFS#3 
INTEGER MAXFILES3 


MAXFYLES 


ARRAY TeNr0t137)3 


TEN 


DEFINE LBRANCH = 
REAL ARRAY BRANCHES OILBRANCH]$ REAL LAX» BRANCHX3 


BRANCHES 
LAX 
BRANCHX 


30 0 
E FILE §S 
m O#» 
= {4 


Nez £128] #> 
SF= C1lill#s 
Fos £E2t2]#. 


ON= 1#s 


Huey 


50s 


c4:5]#, 


£i:8J#, 
[9239] Ke 


INTEGER INXFIL*#FILEARRAYPRT 


INXFIL 


FILEARRAYPRT 


DEFINE MAXCOM=15 # $3 
INTEGER SUPERMAXCOM3 4%% SUPERMAXCOM = 128x(MAXCOM+41), 


SUPERMAXCOM 


ALPHA ARRAY COMLOSMAXCOMs03127] 3 


COM 


REAL NEXTCOM$ 


NEXTCOM 


ALPHA ARRAY INFOLO?31, 


tNeo 


REAL ARYSZ3 


ARYSZ 


0412733 


ALPHA ARRAY EXTRAINFOrLO?31, 08127) 


FXTRATNFO 


REAL EXPT¢s EXPT2s EXPT33 


EXPT4 
EXPT9 
EXPT3 


DEFINE JR 


= £3635 


J#e IC = 


REAL INFAsINFBoINFC3 


INFA 
INFB 
INFC 


Cars7 ]#s 


INTEGER NEXTINFOs GLOBALNEXTINFO? 


NEXTINFO 


GLOBALNEXTINFO 


NEXTEXTRA 


INTEGER NEXTSS3 


NEXTSS 


DEFINE SHX=189#, 
REAL ARRAY STACKHEANCOSSHX]5 


STACKHEAD 


GHX=61#} 


; 


NEXTEXTRAS 


00208100 
00208110 
00708120 
00208130 
00208135 
00208140 
00208150 
00208160 
00208170 
00208180 
00208490 
00209000 


00210000 


00711000 
00212000 


00213000 
00214000 
00214100 
00215000 
00216000 
00217000 
00218000 
00219000 


00920000 


00221000 
00222000 


00223000 


00724000 


00225000 
00226000 


a4 


eee 


~ 


0057 


0057 


0057 
0057 


po a 


() 


{} 


ot 


O 


CS 


PRT¢300) 


PRT¢3014) 
PRT¢302) 
PRT¢303) 


PRT(304) 
PRTC305) 
PRT(306) 
PRT(€307) 
PRTC310) 
PRTC311) 
PRT(312) 
PRT(313) 


PRT¢€344) 
PRT¢345) 
PRT¢€316) 
PRTC317) 


PRT(320) 
PRT¢€321) 


PRT¢322) 
PRT¢323) 
PRT¢324) 
PRT(395) 


PRT(326)_ 


PRT(327) 
PRT( 330) 


PRT(331) 


PRT(3a2) 


PRT(333) 
PRT(334) 


foun: "t 


aon 


nag bn nou 


uo 


Ss 


4 


" 


REAL ARRAY GLOBALSTACKHEADIOIGHKI3 
GLOBALSTACKHFAD 
REAL LA, DTs TEST3 
LA 
nT 
TEST 
ALPHA LADR4eLADR20),ADR3»LADR4sLADRSeLINFAS 
LADRI 
LADR2 
LADR3 
LADRY 
LADRS 
LINFA 
LINDX 
LADDR 
DEFINE mMAXNDOS=20#; 
ALPHA ARRAY DOTESTs DOLABLOSMAXDOS)3 
DOTEST 
nOLAB . 
ALPHA LyrSTART}3 
LISTART 
ALPHA ARRAY INTCFOTNUMINTML4NUMINTM142) 3 


ALPHA ARRAY TYPESLO36)], KLaSSr0314]; 


INTEGER OP, PREC» Pe IT3 


INTEGER LINDXs_ ADDR? 


INTINLINES(12¢06]#, 
INTNUM sf 36t12]#. 


INTSEEN 


20 #» % MaX NO OF RECURSIVE CALL ALLOW ON LIB ROUT 


OP 
PREC 
IP 
tT 
DEFINE DUMPSIZE =197 #3 
ARRAY FNNHOLODCOSDOUMPSIZE)3 
FNNHOLD 
INTEGER FNNINDEXeFNNPRTS 
FNNINDEX 
ENNPRT 
DEFINE MAXNBHANG = 3043 
ARRAY FNNHANGCLO?MAXNBHANG]3 
FNNHANG 
DEFINE  NTCLASS=£633)#, INTPARMCLASS=(93 314, 
rNTPRT =(24:61]#»5 INTPARMS =[30%6)#, 
rNAM =£12336]#+ INTX =E2t10)#, 
DEFINE 
INSERTMAX = 
tNSFRTCOP = INSERTINFOCINSERTDEPTH®4] #s 
mNSFRTMIQN = INSERTINFOPINSERTDEPTH?O] #e 
tNSFRTFID = tNSERTINFOPINSERTDEPTHet) #, 
INSERTINX = JNSERTINFOPINSERTDEPTHs 2] Be 


rNSFRTSEQ = ;NSERTINFOrINSERTDEPTHs 3) 
ARRAY INSERTINFOLOLINSERTMAXs Olay} 
INSERTINFO 
DEFINE mSRWa14 #3 
ALPHA ARRAY MESSAGELOEMSRW20896] 3 
MESSAGE 
= BOOLEAN ARRAY MSFLEOIMSRW) ; 
MSFL 


00227000 
00228000 


00229000 


002730000 
00231000 


00232000 
00233000 


00234000 


00235000 


00237000 
00236000 


00239000 


00740000 
00241000 


00241010 
00241020 
00241030 
00241200 
00241220 
00241240 
00241260 
00241280 
00241300 
00241320 
00941360 


00241900 
00242000 


00247050 


as 


HoH HARRAH HHH HR 


4 


0058 
0060 


0060 


0060 
0060 


0062 
0062 


0066 


0069 


0069 
0069 


0071 


0071 
0074 


0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 
0073 


0075 
0075 


0077 


() 


O 


ch a 


C) 


wet 


Gy Gr. is 8 


Ca 


PRT(335) 
PRT(336) 
PRT (337) 
PRT¢340) 
PRT¢341) 


PRT¢342) 


nt - 


ats ARRAY LINEDICT£LO&7*0:127)3 
CO811203129733 


LEINEDICT 


ALPHA ARRAY LINESEG 


LINE SEG 


ARRAY TSSMFSALO?15] ¢ 22% BIT FLAGS PRNTD ERR MESSGS (<748), 


TSSMESA 


INTEGER NOLIN? 


NOLIN 


% LINE DICTIONARY ARRAY 
% LINE SEGMENT ARRAY 


% NUMBER OF ENTRIES IN LINE SEGMENT 


REAL LASTANDR $ 42% STORES LAST ADR, 


LASTADDR 


INTEGER WARNCOUNT 3 2%% COUNTS NUMBFR OF TSS WARNINGS, 


WARNCOUNT 


DEFINE cE 


1,ASTC 
SEGNO 
CLASS 

FQ 
SUBCLASS 
CLASNSUB 
ADJ 

TWOD 
FORMAL 
TYPEFIXED 
ADDR 
LINK 
RASE 
SIZE 
BASENS1!ZE: 
NEXTRA 
ADINFO 
RELAND 
TOCF 
TOSFGNO 
TOLASTC 
TOCLASS 
TOFQ 
TOSUBCL 
TOANS 
TOFORMAL 
TOTYPF 
TOADDR 
TOL INK 
TOBASE 
TOSYZE 
TONEXTRA 
TOADINFO 
TORFLADD = 


UNKNOWN 
ARRAYID 
VARID 


STMTFUNTD 


NAMFLIST 
FORMATID 
LABFLID 
FUNTD 


Se eS | te i; | | a Ct ec | PT | | ts 


ZOF THE "INFO" ARRAY® 


un nt uw tt 


r2tiy#, 

r3tyot, 

r3i9jee 

Cisit5 ye. 
(Porites 
[21:3 ]#. 
L14910]#s 
Li4s1]8e 
Ci4dsij#» 
Ci3ssi)#e 
Ci2:1)4» 

C2412] 4, 
L36:12]#, 
cri8:15l#, 
C33815)4, 
r18:30)%, 
L2t6]#s 

r8s1O)ee 

r21:1i5i4, 
Pra7s ike 

3239398, 

3:36:12#, 
15:4335#, 
20:a7318#, 
21¢4533#, 
t4rarvsi#, 
33473184, 
12ta731#, 


243363128. 
362 36812Hs 
18°33315¢#» 
33233:154, 


Dtdorb6#e 
8:38:108, 


218331158. 
STHF FOLLOWING CLASSES APPEAR IN THE 1ST WORD OF EACH 3"WORD ENTRY 
AND MaY Br COPIED TO INFAsCLASS,. 


OF» 
1H» 
Pte 
34, 
KBs 
5és 
OB, 
(az) 


ZINFA 
ZINFA 
AINFA 
ZINFA 
ZINFA 
ZINFA 
ZINFA 
SINFA 
SINFA 
AINFA 
ZINFA 
ZINFA 
ZiNFC 
SINFC 
ZINFC 
ZINFC 
ZINFC 
ZiNFC 
ZINFA 
ZINFA 
BINFA 
ZINFA 
STNFA 
SINEA 
ZINFA 
BYNFA 
ZINA 
ZINFA 
ZINFA 
ZINFC 
ZINFC 
ZINFC 
BYNFC 
ZINFC 
ZINFA 


¥996— 
49968 
29968 
£996" 
2996" 
4996" 
4996" 
2996" 
2996 
4996" 
4996" 
2996" 
4996" 
%2996" 
4996" 
¥996= 
%996" 
¥996" 
4996" 
4996" 
996" 
4996" 
%996= 
4996" 
¥9968 
¥996= 
%996" 
4996" 
£996" 
2996" 
4996" 
4996" 
996" 
¥9968 
%996" 


%996e 


00242100 
00742200 


00242220 
00242300 
00242700 
00242750 


00243000 
00244000 
00245000 
00246000 
002746100 
00247000 
00248000 
00249000 
00750000 
00251000 
00?52000 
00253000 
00254000 
00255000 
00256000 
002757000 
00258000 
00259000 
00260000 
00261000 
00262000 
00762100 
00263000 
00263100 
00264000 
00265000 
00266000 
00267000 
00268000 
00269000 
00270000 
00271000 
00272000 
00273000 
00274000 
00274998 
00274999 
00275000 
00276000 
00277000 
00278000 
00279000 
00280000 
00281000 
00282000 


4 


AAA AAA AAO YCTVVVVVGV VU VUVV VV eV VV VV UC UC Ue ee He Ue UU 


0079 
0081 
0083 
0084 
0084 
0084 
0084 
0084 
0084 


0084 
0084 


- 0084 


0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 
0084 


€ 


_ 
Ne 


QO 


INTRFUNI DS Bs 
eXT1D = OH, 
SURBRID = 408, 
BLOCKID = 41%, 
FILETD = 12s 
SUBSVAR = 43%» 
EXPCLASS & ate 
SBVEXP = 158» 
LISTSID = 168» 
JUNK = 17s SNOT A GENUINE CLASS %996" 
NUMMY = O78» 
NUMCLASS = 28%, 
RESERVED = 298s 
HEADER = 30%. 
eNncoM = 31#, 


STHE FOLLOWING SUBCLASSES APPEAR IN THE 1ST WORD OF SOME 3*WORDZ996= 
ZENTRYFES OF THF "INFO" ARRAY» AND MAY BE COPIED TO INFA,SUBCLASS. 


DEF INE 


DEFINE 
DEFINE 


FORMAT 
PRT(343) = FD 

FORMAT 
PRT¢344) = SEGSTRT 


tNTYPE = yh, 


STRINGTYPESDE » 
REALTYPF = 3%s 
LOGTYPE = dk» 
NOURTYPE = 5, 
cOMPTYPE s 6%} 
EOFs 500#, 1D= 504#, NUM= 502%» PLUS= 503%, MINUSS 5044, 
STAR= 5054, SLASH= 506#» LPAREN= 507#s RPARENS 5064p 
FQUAL= 509#2 COMMA= 510%» SEMI= 541442 DOLLAR=0#+ UPARROW=0# 3 
THRU = STEP 4 UNTIL #3 49960 
ADD = 16#»s BBC = 22#+ BBW = 534#+ BFC = 384#- BFW = 550# 
eCDC =168#s CHS =434#» COC = 4GO#s KOM =130#+ DEL = 10# 
eDUP =261#s EQUL=5814+ GBC = 2978#+ GBW =790#» GEQL= 24% 
eGFC =294%—s GFW =806#» GRIR= 37#e IDV =384#, INX = B4# 
21S0 3532#. ISN =548#e LEQLS 533% LND = 67#5 LNG = 194 
2LOD =260#»s LOR 35#9 LAV = 134#%#5 LESS=549#5 MDS = 515# 


eMKS = 72#e MUL = 64#9 NEQLS 6942 NOP = 11%#»5 PRL 18# 

eXRT = 12%2 RDV =896#» RIN = 39%- RTS =167#» SND & 132# 

» SSN = 70#» SSP = 582#s STD = 68%, SUB = 48%, XCH = 133# 
= 71#s ZP1 =322#+ DIU =1428#%#, STN =132# 

*NtA = 454% DIB = 49#5 TRB = 53%, 150 = 37% 

eAD2 B17#, SB2 = 49%, ML2 = 65%s DV2 =129%,) FTC = 197# 

eSSF =280#s FIF =453#s CTC =709#, CTF = 965# 

»TOP=2620# 


_ 3 
FDCX100e"NEXT = “e132X292A6) $ 


SEGSTRTCX63,5 " START OF SEGMENT ¥¥kkxRKHKEM, TG), 


FLAGROUTINEFORMATCX4G14 se Abs A2eX1s2AGe CMHrsALe Tat) ), 
XHEDMCX40e"CROSS REFERENCE LISTING OF MAIN PROGRAM" #X41 5/0 


XAO, tawwae mw ee a me ae ae ele sowm wm meme w ils Xd)» 
XHEDS(X38e "CROSS REFERENCE LISTING OF SUBROUTINE “#A6eX3Be/s 
X38» AF em oe oe ge ee ee a ee ee “eA6aeX38)»e 


XHEDFCX35e"CROSS REFERENCE LISTING OF "sA6eAte" FUNCTION "sAGpe 


X 3509/9 X35 afew wee Lt a te he Sod tt ,AGrAle"™ | Abr 


00283000 T 0084 
00984000 T 0064 
00285000 T 0084 
00286000 T 0084 
00287000 T 0084 
00288000 T 0084 
00289000 T 0084 
00290000 T 0084 
00290050 T 0084 
00290055 C 0084 
00290100 T 0084 
00291000 T 0084 
00292000 T 0084 
00293000 T 0084 
00294000 T 0084 
00294998 c 0064 
00294999 ¢ 0084 
00295000 T 0084 
00296000 T 0084 
00297000 T 0084 
00298000 T 0084 
00299000 T 0084 
00300000 T 0084 
00303000 T 0084 
00302000 T 0084 
00303000 T 0084 
00316000 P 0084 
00317000 T 0084 
00318000 T 0084 
00319000 T 0084 
00320000 T 0084 
00321000 T 0084 
00322000 T 0084 
00323000 T 0084 
00324000 T 0084 
00325000 T 0084 
00326000 T 0084 
00327000 T 0084 
00328000 T 0084 
00329000 T 0084 
00330000 T 0084 
00330010 T 0084 
00331000 T 0084 
00332000 T 0084 
START OF SEGMENT #2 40k HK 


3 18 9 LONGs NEXT SEG 
00333000 T 0084 
START OF SEGMENT 2k % RR Ee 


00333010 T 0084 
00333050 T 0084 
00333055 T 0084 
00333060 T 0084 
00333065 T 0084 
00333070 T 0084 
00333075 T 0084 


2 
4 


rae 


tC) 


PRT(345) 
PRT(346) 
PRT¢347) 


PRT( 350) 
PRT¢351) 


PRT¢352) 


n 


i 


X4Zptaomone a gy ge ee a mmm meme tt, X i 3)» 


X35)° 

XHEDGCX43e"CROSS REFERENCE LISTING OF GLOBALS"+X438/¢% 
HENDBCX34e"CROSS REFERENCE LISTING OF BLOCK DATA SUBPROGRAM"4,X35>» 
Ao X 3G g meme Ce ee ee oe ee ee en 2 ee 2 wawmma moma eX 354% 


SEGEND €X700" SEGMENT*,» 159" 7S"e 55" LONG")? 


ARRAY PnPRT £023120863);3 


PDPRT 
REAL PDYNX3 % INDEX OF LAST FNTRY IN PpPRT 
PDINX 
REAL TSrGS$Z3 % RUNNING COUNT OF TOTAL SEGMENT SIZE3 
TSEGSZ 
COMMENT FORMAT OF PRT&SEGMENT ENTRYESs IN PDPRTS 
DEFINE STYPrF= (1#2]#, % QO = PROGRAM SFGMENT@SEGMENT ENTRY ONLY 
STYPC= 1{246%o#s % 4 = MCP INTRINSIC 
% 2 = DATA SEGMENT 
OTYPF= (432]#s % O = THUNK = PRT ENTRY ONLY 
DTYPC= 434632 #,% 1 = WORD MODE PROGRAM DESCRIPTOR 
@ 2 = LABEL DESCRIPTOR 
% 3 = CHARACTER MODE PROGRAM DESCRIPTOR 
PRTAF= (8210}#2 % ACTUAL PRT ADDRESS = PRT ENTRY 
PRTACs 88381108, 
RELAMF = £18:10]4, 2 ADDRESS WITHIN SEGMENT @PRT ONLY 
RELANC= 18138:10#, 
SGNOF= £28%140]#»5 % SFGMENT NUMBER & BOTH 
SGNOcs 282383108. 
DKAY = £13415)#, &% RrFLATIVE DISK ADDRESS * SEGMENT ENTRY 
DKAC = 13233: 158» 
SEGSZF =(38%10]#+ 3 SFGMENT StZr = SEGMENT ENTRY 
SEGSZC =38438:104;% MUST BE O [TF PRT ENTRY 
DEFINE ¢ SOME EXTERNAL CONSTANTS 
BLKCNTRLINT = 5#, 
_ FPLUS? = 15364, 
ENDEXTCONDEFs#3 


DEFINE PDIR = PDINX,(C37¢5] 4s 
PDIC = PDINX,Ca2%6J#3 


DEFINE cIS = CRDLO)#e % CARD 
TIS = CROCi]#» 2 TAPE 
TOS = CRDC2)#s * NEW TAPE 
LOS = CRDE[3)#3 * PRINTER 


DEFINE PWROOT=ROOT,IR*ROOT.IC #ePWlaleIRol.IC # 3 
DEFINE GLOBALNEXT=NEXT#3 
BEGIN % SCAN FPB TO SEE IF VARIOUS FILES ARE DISK OR TAPE 
INTEGER STREAM PROCEDURE GFTFPB(Q)3 VALUE Q3 
*SEGMENT DESCRYIPTOR* 


GETFPB . 
BEGYN 
St « LOC GETFPBs Sr « SI * 73 DI + LOC Q3 DI « DI + 53 
SKIP 3 DB? 9CIF SB THEN DS « SET FLSE DS « RESET} 
SKIP SB)3 
Dr « LOC Q@3 Sy * Q3 HS + WHSs SI] « Q3 GETFPB « Sy3 
END3 
INTEGER STREAM PROCEDURE GNCCQ)3 VALUE Q3 
GNC 
BEGIN SIT + Q3 SI «+ SI + 73 DI * LOC GNC3 Dr «+ DI +73 DS «CHR END? 


1S 


START OF SEGMENT 


00333076 T 0084 
00333080 T 0084 
00333085 T 0084 
00333090 T 0084 
00333095 T 0084 
00334000 T 0084 
150 LONG» NEXT SEG 
00335000 T 0084 
00336000 T 0086 
00337000 T 0086 
00338000 T 0086 
00339000 T 0086 
00340000 T 0086 
00341000 T 0086 
00342000 T 0086 
00343000 T 0086 
00344000 T 0086 
00345000 T 0086 
00346000 T 0086 
00347000 T 0086 
00348000 T 0086 
00349000 T 0086 
00350000 T 0086 
00351000 T 0086 
00352000 T 0086 
00353000 T 0086 
00354000 T 0086 
00355000 T 0086 
00355100 T 0086 
00355410 T 0086 
00355120 T 0086 
00355990 T 0086 
00356000 T 0086 
00357000 T 0086 
00358000 T 0086 
00359000 T 0086 
00360000 T 0086 
00361000 T 0086 
00362000 T 0086 
00363000 T 0086 
00364000 T 0086 
00365000 T 0086 
ea a OK aK 
00366000 T 0000 
00367000 T 0000 
00368000 T 0001 
00369000 T 0002 
00370000 T 0003 
00371000 T 0004 
00372000 T 0005 
00373000 T 0005 


2 


C) 


©) 


C) 


PRT(€353) 


PRT(354) 


PRT¢355) 
PRT¢353) 
PRT¢ 356) 
PRT¢357) 
PRT¢ 360) 
PRT(361) 
PRT(362) 
PRT(363) 


PRT(364) 


PRT(365) 


PRT¢3669 
PRT(367) 
PRT¢3705 


PRT¢3714) 
PRT(372) 


PRT(373) 


INTEGER FPpBBASE} 


FPBBASE 
FPBBASE « GETFPB(3)3 
TIS «© TOS « 503 CIS « LOS ¢ 03 
IF GNCCFPRBBASE+3) =12 THEN CIS «© 1503 % CARD 
IF GNCCFPBRASE+8) =12 THEN LOS © 1503 & PRINTERS 
{IF GNCCFPBBASE+13) = {9 THEN TOS «+ 1503 % NEW TAPES 
IF GNCCFPRBASE+18) =42 THEN TIS «© 41503 & TAPE 

END3 


*SEGMENT DES¢RIPTOR* 


BEGIN COMMENT INNER BLOCKS 
% *** DO NOT DECLARE ANY FILES PRIOR TO THIS POINTs DO NOT ALTER 
% SEQUENCE OF FOLLOWING FILE DFCLARATIONS 
FILE CARD ¢5910+C1S)3 
*SEGMENT DESCRYPTOR* 


CARN 

DEFrNEG LrNeSYZE = 900 # 3 

SAVE Frie LINE DrSkK SERJAL r20%LINESIZE) ¢2215»LOSsSAVE 10)3 
LINE 


FILE ATTRBUTS 


SAVE Fly € nEWTAPE DISK SERIAL COOILINESIZE] "FORSYM™ Cae10*TOSsSAVE 10)3 


NEWTAPE 

FILE TAPE “"FORSYM™ (C2e10"TIS)3 
TAPE 

FILE REMOTE 19¢€2910) 3 
REMOTE 

DEFINE cHUNK =180#3 


DEFINE PTR=LINE#*RITESLINE#eCRECARD#e TPHTAPE SS 4515" 


FILE CONE pISK RANDOM [20:CHUNK] 
CODE 

FILE LIRRARYFIL DISK RANDOM (2910215093 
LIBRARYFIL 

DEFINE 1,.F = LIRBRARYFIL#3 

FILE XREFF DISK SERIAL( 2084500] ¢2eXRBUFF) 3 


Coe 309SAVE ABSCSAVETIME) 23 


XREFF 

FILE XREFG DISK SERIAL£L20%15001¢2+3,XRBUFF)3 
XREFG 

REAL DALOCS % DISK ADDRESS 
nALoc 


LABFL PoSTWRAPUPS 
PROCEDURE EMTTNUMEN)3 VALUE NS REAL N$ FORWARDS 
EMI TNUM 
REAL, PRoCEDURE |LOOKFORINTRINSIC¢L)?? 
LOOKFORINTRINSIC 
PROCEDURE SEGOVFS FORWARD? 
SEGOVF 
DEFINE RUMPADR= IF CADR*ADR+1)=4089 THEN SEGOVF#S 
DEFINE RUMPLOCALS = BEGIN IF LOCALS*+LOCALS+1>255 THEN BEGIN FLAGC148)3 
LOCALS*2 END END#3 
DEFINE RUMPPRTSBEGIN IF PRTS*PRTS+1>1023 THEN BEGIN FLAGC46)3 
PRTS«40 END END#; 
DEFINE FDOCI = ADR.C36%3]s5 ADR»39871#3 
DEFINE TWONPRT=IF THODPRTX=0O THENCTWODPRTX+PRTS¢PRTS+1 ELSE TWODPRIX#S 
REAL PROCFDURE SEARCHCE)# VALUE E# REAL E# FORWARD: 


VALUE 43 REAL L? FORWARD 3 


~+ 


00374000 


00375000 
00376000 
00377000 
00378000 
00379000 
00380000 
00381000 


44 4-49 Ht + 


5 18 32 LONGs 
00382000 T 
00383000 T 
00384000 T 
00385000 T 


0008 


0008 
0010 
0015 
0019 
0023 
0027 
0031 


NEXT SEG 
0088 
0088 
0088 
0088 


START OF SEGMENT 8% * ee ROK 


00386000 T 
00387000 T 


00388000 T 
00389000 T 
00389500 T 
00390000 T 
00391000 P 
00392000 T 
00392400 T 


00392600 T 
00392700 T 


00392800 T 


00393000 


—" 


00393100 
00394000 


+1 + 


~— 


00394500 


- 


00395000 


00396000 
00396500 
00396510 
00396600 
00396610 
00397000 
00398000 
00399000 


AAA ASsHAHH 


0004 
0004 


0014 
0019 
0023 
0027 
0027 
0027 
0035 


0039 
0039 


0043 
0047 


0047 
0047 


0054 
0051 


0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 


2 


6 


() 


QO 


Co 2@ 


Ce 


©) 


PRT(374) 
PRT¢375) 
PRT¢376) 
PRT¢377) 
PRT¢400) 
PRTC401) 
PRTC402) 
PRTC403) 
PRTC404) 
PRT¢405) 
PRT(406) 
PRT¢407) 
PRT¢410) 
PRT¢441) 
PRT¢442) 
PRT¢413) 
PRTC444) 
PRTC445) 
PRT(416) 
PRTC417) 
PRTC420) 


PRT(421) 
PRT( 422) 


PRT¢ 423) 
PRT¢ 424) 


PRT¢(495) 


PRT(496) 


aQ- 


a 


au 


SEARCH 
PROCEDURE 


PRINTCARD 


INTEGER PROCEDURE FIELDCX)3 


FIELD 


PRINTCARD? FORWARDS 


VALUE X3 INTEGER X3 


ALPHA PROCEDURE NEED¢CTs C)$ VALUE Ts, C# ALPHA Te C3 


NEED 


FORWARD 3 


FORWARD3 


ALPHA PROCEDURE GETSPACECS)3 VA,UE Ss ALPHA S$ FORWARDS 


GETSpPACE 
PROCEDURE 

EQUIV 
PROCEDURE 

EXECUTABLE 


EQUIVCR)$ VALUE R$ REAL R3 FORWARDS 
EXECUTABLE? FORWARDS? 


ALPHA PROCFDURE B2D(B)3 VALUE Bs REAL Bé ForRWARDS 


B2D 
PROCEDURE 
NEBUGWORD 
PROCEDURE 
EMITL 
PROCEDURE 
ANJUST 
PROCENURE 
NATIME 
PROCEDURE 
FMITR 
PROCEDURE 


B 
PROCEDURE 
EMITO 
PROCEDURE 
EMITOPDCLIT 
PROCEDURE 


EMITDESCLIT 


PROCEDURE 
EMITPAIR 

PROCEDURE 
EMITN 

PROCEDURE 
ARRAYDEC 


DEBUGWORD (N)3 VALUE N# REAL N$ 
EMITLON)3 VALUE N3 REAL N$ FORWARD? 
ANJUSTSFORWARD? 

DATIMES FORWARDS 

FMITBCAsc)3 VALUF A,C3 REAL A’ BOOLEAN C3 
FIXBCN)# VALUE N$ REAL N$ FORWARDS 
FMYTOCN)$ VALUE NS REAL N3 FORWARDS 
EMITOPDC),1T¢CN)# VALUE N3 REAL N3 FORWARDS 
FMITDESC|,ITCN)’ VALUE N% REAL N3 FORWARDS 
EMITPAIR¢(L®OP)# VALUE Leops INTEGER {,-0P3 
EMITNCN)$ VALUE N3 REAL N3 FORWARD? 
ARRAYDECCI)§$ VALUE I REAL Is FORWARD? 


INTEGER PROCEDURE ENTERCW» EDs VALUE We E$ ALPHA We 


ENTER 


REAL PROCENURE PRGDESCBLORCAsBsC2D)3 VALUE ArBaCoD3 


PRGNESCBLDR 


PROCEDURE 
WRITEDATA 


PROCEDURE 
SCAN 

PROCEDURE 
SEGMENT 


MOVESEQ 
PROCEDURE 
WRITAROW 


RFAL A»sBF BOOLEAN C# ARRAY Dr0e0}3 
STREAM PROCEDURE MOVESEQCOLDeNEW)3 


FORWARD? 
WRITEDATACAsBsC)3 VALUE A,B3 REAL AsB3 


ARRAY Cr0}3 FORWARDS 
SCAN} FORWARD} 


SEGMENT ¢CAsBsCoD)3 VALUE AsBeCi 


BEGIN D1+OLD3 


FORWARDS$ 


FORWARD; 


FORWARD} 


E3 FORWARD} 


REAL AsBel oD? 


FORWARD? 
ST*NEWN3 


DSeWDS 


WRITAROWCNe®ROWIS VA|UE NS INTEGER N$ REAL ARRAY ROWELO] 3 


IF SING) ETOG THEN WRITECLINE* ne ROWE) ELSE WRITECRITE*N®ROWL*)) 3 


END 3 


00400000 
00400040 
00401000 
00407000 
00403000 
00403100 
00404000 
00405000 
00406000 
00407000 
00407500 
00408000 
00408100 
00409000 
00410000 
00411000 
00412000 
00413000 
00414000 
00415000 
00416000 


00417000 
00418000 


00419000 
00420000 


00421000 


00422000 
00497010 


00422100 
00422110 


4 4a 


0051 
0051 
0051 
0051 
0051 
0051 


0051 
0051 


0051 


0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0051 


0051 
0051 


005! 
0051 


00514 


0051 
0051 


0051 
0052 


C: 


O 


CG: 


C) ) 


GF. 


CO 


C) 


W) es 
ss PROCEDURE WRITALISTCFMToNeL id eL2eL3eL4oeLSeLGrlL7*L8) f 00422120 T 0062 ax 
@ PRTC497) WRITALIST cs 
VALUE NeLielL2eL3eLaoeLSeL6eL7eL83 INTEGER N3 00422130 T 0062 
‘ REAL LisL2eL3rL4eL5*L6eL7+L83 FORMAT FMT 3 00422140 T 0062 aS 
O BEGIN 00422150 T 0062 8 
PRINTBUFFE1J«L1 3 00422160 T 0062 
Lie1 3 00422170 T 0064 e 
FOR L2e«L2eL3eLaeL5eL6ebL7ebL8 DO PRINTBUFFEL{eLit+tijel2 3 00422180 T 0065 
STACK(F+2) = *TEMPORARY STORAGE 
IF StNGLETOG THEN WRITECLINE»FMTeFOR Liet THRU N DO PRINTBUFFEL1]) 00422190 0082 a 
© PRT(430) = *LIST» LABEL, OR SEGMENT DESCRIPTOR* es 
ELSE WRITECRITEsFMTeFOR Liel THRU N DO PRINTBUFFIL1]) 3 00422200 T 0090 
es PRTC4319 = OUTPUTCH) 
ko) PRTC432) 5 #LIST» LABEL, OR SEGMENT DESCRIPTOR* ~ 
END WRITALIST $ 00422210 T 0107 
- STREAM PROCEDURE BLANKITCAsNeP)3 VALUE NsP3 00422220 T 0109 = 
o PRT(433) = RLANKYT LU 
BEGIN nreas NepSe8 LyT* ds PeOSe8 L1T"99999999%) END 3 00422230 T 0109 
ms BOOLEAN STREAM PROCEDURE TSSMFS¢AeB)? VALUE BE 00422235 T 0115 
‘s, PRT¢434) s TSSMES | . @ 
BEGIN SteAs SKIP B SB} IF SB THEN ELSE BEGIN TALLYe13 TSSMES«¢TALLY & 00422240 T 0415 
2 DIeAS SKIP B DB$ DS«SET END END oF TSSMES 3 00422250 T 0118 be 
o STREAM PROCEDURE TSSEDITCXaP1»oPoeP3sPeN)3 VALUE PleP2eP3eN 3 00422255 T 0120 é 
PRT(435) = TSSEDIT 
aa BEGIN DrepsDSe1t6LIT"TSS WARNING:  sSleX¢SleS1+23 DS#6CHR} DS*4LIT" "3 00422260 T 0120 
Co PicDS«4sLIT"A TSS HOL OR QUOTED STRING MUST BE ON 1 LINE ") 3 00422262 T 0124 G 
P2¢DSe4aLIT"THIS CONSTRUCT IS ILLEGAL IN TSS FORTRAN ") 3 00422264 T 0131 
im P3(COS*4aLIT"THIS CONSTRUCT IS UNRESERVED IN TSS FORTRAN ie ee 00422266 T 0139 a 
'S DS#26LIT™ ts DSeBLITt*e"s DSeLIT™ "? SleLOC NI DS*3DEC END TSSEDIT 3 00422268 T 0146 WY 
PROCEDURE TSSENCXeN)$ VALUE XeN#% ALPHA X3 INTEGER N 3 00422270 T 0152 
om PRT(436) = TSSED 
SS BEGIN If NOT CLISTOG OR SEQERRORS) THEN PRINTCARD $ UNPRINTED*FALSF 3 00422275 T 0152 C 
TSSEDIT¢CXsNa1leN=2eNe3ePRINTBUFF »WARNCOUNT#WARNCOUNT#1) 3 00422280 T 0157 
= WRYTAROWC14ePRINTBUFF) END OF TSSED 3 00422285 T 0162 
eS) . PROCEDURE FRRMESSCN)3 VALUE N3 INTEGER NS 00423000°T 0164 C 
PRT¢437) = FRRMESS 
z BEGIN 00424000 T 0164 P= 
iS 00425000 T 0164 WL 
STREAM PROCEDURE PLACE CDeN,XeSefo hs VALUE NeE 3 00426000 T 0164 
a START OF SEGMENT 4% ee 7 ‘ 
me PRT¢4a0) = PLACE + 
BEGIN Dr « D§ DS « 6 LIT "ERROR "3 00427000 T 0000 
St « LOC N3 DS « 3 DECs OS « 5 LIT '3 ts 00428000 T 0001 a 
C S} « X3 SI « SI + 23 pS «© 6 CHR$ DS « 4 LIT "3 00429000 T 0002 
S1+Ss DS*6 WOS3 DSe6 LIT" "3 STeLs OS*8 CHRS ODSeq4 LIT” & 3 00430000 T 0004 
= DS « 8 LIT "Xs DS « LIT * 00431000 T 0008 sic 
i) St *« Loc Es DS « 3 DEC; 00432000 T 0010 OU 
END PLACE} 00433000 T 0010 
_. STREAM PROCEDURE DCPLACECDeNeX*SeMsP)3 VALUE NOP 3 00433100 T 0010 
S PRTC441) = DCPLACE ‘= 
BEGIN DleD$ DSe4LIT"ERR#™$ SIeLOC N3 DS+3 DEC} DS+3L]T" @ * 3 00433200 T 0010 
SteS} DS*BCHR: DSeA2LITMs 3 ST#xXs SleS1+23 DS*6CHR? DS#S4LIT" ™ 3 00433300 T 00123 
oO Peprepr=543 DS#2LIT" "3 STeMs DS*44CHR} DS*B8LIT”™ ") 3 00433400 T 0022 © 
END OF DCPLACE 3 00433500 T 0025 
= ERRORCTeERRORCT+1 $3 00434000 T 0026 
O tf NOT MSFLEN DTV 167 THEN 00434010 T 0027 O 
BEGIN 00434020 T 0028 
XD oO 


ttt, 


MSFLEON DIV 16]¢TRUE 3 00434030 T 0029 
CASFOCN DIV 16)0F 00434040 T 0030 
BEGIN - 00435000 JT 0031 
PRT¢442) = «CASE Rey DESCRYPTOR* 
Tho ee *) WITH 00436000 T 0032 
SYNTAX ae V TRROR nw, , wi w, x¥000 00437000 T 0032 
START OF SEGMENT #48 Ree # 8 
"MISSING Te "OPERATOR's” OR PUNCH se *TUATION "yt "yu %, ZOOY 00438000 T 0034 
HCONFLICTt's "ING COMM". "0N AND/OM*S"R EQUIVATS "LENCE ALts "LOCATION", %002 00439000 T 0034 
"MISSING " s*RIGHT PA™*e*RENTHES It etS Ww, tt wt it» %003 00440000 T 0034 
"ENTRY ST"e"MT ILLEG*e "AL IN MA® "IN PGM Oe"R BLOCK ! " eMOATA . £004 00441000 T 0034 
"MISSING “e"END STAT a "EMENT w,f "," t,! tt, %005 00442000 T 0034 
“WARITHMET"s"IC EXPRE*s*SSION RE"*e "QUIRED ptt ae ™, 2006 00443000 T 0034 
"LOGICAL “"s"EXPRESSI"s"ON REQUI Me "RED vat " ™, £007 00444000 T 0034 
"TOO MANY." LEFT PA™Na"RENTHESETMA|*S wf ar oe ", 2008 00445000 T 0034 
"TOO MANY's" RIGHT P™e"ARENTHES# "ES "y" wy *, 4009 00446000 T 0034 
"FORMAL P"s,"ARAMETER™s” ILLEGaALtt»™ [N COMM", "ON Watt ", 2010 00447000 T 0034 
"FORMAL P',"ARAMETER™s" ILLEGALMs" IN EQUI"s"VALENCE ",* t, ZOU 00448000 T 0034 
"THIS STATS"TEMENT Ite "LLEGAL Ite "N BLOCK s*DATA SUBN s HPROGRAM , 4012 00449000 T 0034 
"INFO ARR"s"AY OVERF™s "LOW m,n "," ",! %, £013 00450000 T 0034 
"IMPROPER's"” DO NEST "sf w,f Wg ba ead ", 2094 00451000 T 0034 
"DO LABEL"se"” PREVIOUTe "SLY DEFI%s "NED yn wu *, 2015 00452000 T 90034 
03 00453000 T 0034 
8 IS 97 LONGe NEXT SEG 7 
FILL MESSAGEDL1+*] WITH 00454000 T 0034 
"UNRECOGN’S"I1ZED STAT A"TEMENT Tia" YPE Witt a fee ", 4016 00455000 T 0035 
START OF SFOMENT *& x ek Ry 9 
"ILLEGAL "s"p0 STATE: "MENT w," wif "if , 4017 00456000 T 0036 
"FORMAT S","TATEMENTs" MUST HAM "VE LABEL", © id ", £018 00457000 T 0036 
MUNDEF INE, "Dp LABEL win w,f wif win W, ¥049 00458000 T 0036 
"MULTIPLE." DEF INIT". TON ee wit wit w, %020 00459000 T 0036 
ILLEGAL, “s"IDENTIFI%e"ER CLASStet IN THIS." CONTEXTH , £021 00460000 T 0036 
WUNPATREDs" QUOTES "e"IN FORMA SO "T "yt mee ", %022 00461000 T 0036 
"NOT ENOU"s"GH SUBSC™s"RIPTS ee ahig at "» 2023 00462000 T 0036 
"TOO MANY» SUBSCRI"s"PTS ” ae we ", 3024 00463000 T 0036 
"FUNCTION'’»" OR SUBR"s"OUTINE prs "REVIOUSL "sy NEFINE's ") ", £025 00464000 T 0036 
"FORMAL P™s"ARAMETER" se" MULTIPL'e"Y DEFINE"s"D IN HEA™s "DING *, 2026 00465000 T 0036 
"ILLEGAL “e"USE OF N'e"AMELIST te! "i" i," ", £027 00466000 T 0036 
"NUMBER O”-"F PARAME"s"TERS INCts"ONSISTEN' s 8T "," ", %028 00467000 T 0036 
"CANNOT BYs"RANCH TO"e™ FORMAT "#"STATEMEN' 2 "T wy” *, 2029 00468000 T 0036 
"SUBROUTI“S"NE OR FU"™e"*NCTION NUo"OT DEFIN'.» "En IN PR's "OGRAM ™, %030 00469000 T 0036 
"IDENTIFI“*S"ER ALREA™S "DY GIVEN ss" TYPE " "," tt, 4031 00470000 T 0036 
03 00471000 T 0036 
9 15 97 LONGs NEXT SEG 7 
FILL MESSAGEL2e*] WITH : 00472000 T 0037 
"ILLEGAL s"FORMAT Se "YNTAX w,t wf ," ", £032 00473000 TY 0037 
START OF SEGMENT kak RK AOR # 10 
"INCORReC",»"T USE OF™e” FILE w," ate n,t ", %033 00474000 T 0039 
"INCONS S"."TENT Uses” OF TDFNSo"TrFYER ‘,* Baa ", ¥034 00475000 T 0039 
WARRAY sO"S"ENTIF YER» EXPECTE', "D ee bbe fea ™, ¥035 00476000 T 0039 
MEXPRESST%,"0N VALUES" REQUIRE) "D "fn nyt ", ¥036 00477000 T 0039 
WILLEGA), ™,"FILE CAR's"D SyNTAXt,"* w,. "yt ", %037 00478000 T 0039 
WILLEGA!, tetCONTROI, "etELEMENT tel fy tt w,r ", 4038 00479000 T 0039 
"DECLARAT™s"ION MUST"s™ PRECEDEt%s" FIRST R*e"EFERENCE'®™ , £039 00480000 T 0039 
"INCONSIS™, "TENT USEe™” OF LABEMe"L, AS PAR™s"AMETER ‘tet? ", %Z040 00481000 T 0039 
"NO. OF P'a"ARAMS, D™e"{TSAGREES"#” WITH PRMe"EV, REFE*s "RENCE "» ZO41 00482000 T 0039 
"ILLEGAL "s"USE OF F™e"ORMAL PAY*"RAMETER "9" "yf ", 2042 00483000 T 0039 


G 


CS 


C) 


© 


C) 


Cy 2-H 2 


"ERROR IN” ” HOLLERI". 'TH LITER. "AL CHARATs NCTER coy yt 


* ® s 
"ILLEGAL "s"ACTUAL P'e"ARAMETERM®"™ ',' ",t Wy 
"TOO MANY"™s" SEGMENT" #®"S IN SOUMs"RCE PROG» "RAM ty! ", 
"TOO MANY%»"” PRT ASS"s"IGNMENTS#e” IN SOURMS"CE BRgeRe al ty 
"LAST BLO's"CK DECLA™s"RATION H™e"An LESS “"e"THAN 102%5"4 WORDS "eo 
03 

FILL MESSAGEL3e*] WITH 
"ILLEGAL "s"1/0 LIST%e"” ELEMENT" se” "," ae a ") 
"LEFT SrO","E MUST BY'e"E SIMPLE'*™ OR SVBST a CRAPTED: ” "S"VARTABLEe 
"VARTABLE"s" EXPECTED ", ft i ad Wa ", 
"ILLEGAL "e"tUSE OF ,eOR, ww, awe wit t, 
"ILLEGAL. WeMUSE OF "AND, w,t wy wy" tt, 
"ILLEGAL. t "USE OF ee "NOT, t,t itt rt,” tt, 
"ILLEGAL ","USE OF R","ELATIONAM, ML OPERAT™,"OR m0 ", 
"TLLEGAL "se"™MEXED TY", "PES w,t HN tri ", 
MILLEGAI, ")"EXPRESSIMsMON STRUCHs "TURE ry! "0 " 
WILLEGA}, *, UM PARAMETE' sR nyt ne wn 1, 
WRECORD BYs"LOCK GRE"*"ATER THA™O"N 1023 "ot "," ", 
“TOO MANY," OPTIONA’ aL, FILES tr, tt ft, tt wey tt, 
WFILE CARs "DS MUST ","ORECEDE e"SoURCE D's "ECK wee Ws 
"BINARY W's"RITE STA'*e"TEMENT Hte"AS NO LI"e "ST ",t ys 
"UNDEFINE'"+#®"D FORMAT’»” NUMBER ts” ed ",” ", 
"ILLEGAL ,"EXPONENT 'te fF IN CONS» "TANT ", tt wee Ww, 
0} 

FILL MESSAGEC4s*) WITH 
"ILLEGAL "e"CONSTANT™s™ IN DATA%s™ STATEME™s NT "yf" ,) 
"MATIN PRO"e "GRAM MIS"s "SING w, ft Net ",” Wy 
"PARAMETE's"R MUST B'e"E ARRAY me CDENTIF IN CER Mig tt ae 
"PARAMETENs"R MUST B!s"E EXPRESS» "STON ee Nat "5 
"PARAMETE"s"R MUST BMs"F LABEL tts” se ahi a Ya Ws 
"PARAMETE™s"R MUST BYe"E FUNCTIe"ON IDENT*S"IFIER se de " 
"PARAMETE',"R MUST Btete FUNCTIMNe "ON OR SU™,"BROUTINE™,® ID "a 
"PARAMFTE%.s"R MUST BYa"E SUBROUNS"TINE IDE*s"NTIFIER >” "y 
"PARAMETE™,"R MUST BY,"E ARRAY te"INENTIFI%,"ER OR EX*s "PRESSION, 
WARTTHME TY," 7C ™ LOG" s "TCAL CONMS MEL ICT OnN',* STORE wt it, 
"ARRAYID “s*MUST BE ",tSUBSCRYyPHte"TED IN Tp "HIS CONT. "EXT ", 
tMORE THA, TN ONE MAT es IN PROGR». "AM wy wt , 
"ONLY CamM™s"MON ELEM™e"ENTS PER'e"MITTED wy" W, 
"TOO MANY's"” FILES ww, t,t win wt 1, 
"FORMAT O"s"R NAMELI“e"ST TOO L's "0ONG ie "," W, 
"FORMAL P*a"ARAMETER™®" MUST BE%*®” ARRAY IM e"DENTIFIE™ 2 YR ", 
03 

FILL MESSAGEC5s*] WITH 
"FORMAL P"s"ARAMETER"®” MUST RE%e” SIMPLE “s"VARIABLE'™s* "5 
"FORMAL PY,"ARAMETER™s" MUST RE» FUNCTIONe"N IDENTI" > "FIER ", 
FORMAL PY,MARAMETER', MUST BE» SUBROUT™s "INE IDEN" s"TIFIER w, 
"FORMAL P',"ARAMETER™,s”™ MUST REtMe” FUNCTIO%s"N OR SUB"S"ROUTINE "es 
"DO OR M","PLIED nOte” INDEX Mte"UST BE ate RT EeE REAL ™, 
"ILLEGAL “e"COMPLEX "s"CONSTANTY,.® es alt Te ", 
"ILLEGAL “s"MIXED TY"e"PE STORE!" a ae ad ar) 
"CONSTANT" s”™ EXCEEDS» HARDWARts"E— LIMITS," "yf" ", 


4043 
2044 
4045 
2046 
4047 


4048 


%O49 
%050 
xO5i 
2052 
2053 
%054 
¥055 
4056 
%057 
%058 
%059 
4060 
2061 
2062 
2063 


%064 


%065 
%066 
4067 
2068 
%069 
2070 
ZO74 
Z072 
2073 
2074 
2075 
2076 
2077 
4078 
2079 


4080 


4081 
%082 
%083 
4084 
%085 
%086 
4087 


10 1S 


00484000 
00485000 
00486000 
00487000 
00488000 
00489000 


97 LONG 


00490000 
00491000 


START OF SEGMENT 


11 1S 


00492000 
00493000 
00494000 
00495000 
00496000 
00497000 
00498000 
00499000 
00500000 
00501000 
00502000 
00503000 
00504000 
00505000 
00506000 
00507000 


97 LONG 


00508000 
00509000 


START OF SFGMENT 


12 1S 


00510000 
00511000 
00512000 
00513000 
00514000 
00515000 
00516000 
00517000 
00518000 
00519000 
00520000 
00521000 
00522000 
00523000 
00524000 
00525000 


AHH AHH NH HH RY HH A A Ht HH 


97 LONG» 


00526000 
00527000 


START OF SEGMENT 


00528000 
00529000 
00530000 
00531000 
00532000 
00533000 
00534000 


AAA AAA eH 


0039 
0039 
0039 
0039 
0039 
0039 
NEXT SEG 
0039 
0040 
errr. LS 
0041 
0041 
0041 
O04! 
0041 
0041 
0041 
0041 
0041 
0041 
0044 
0041 
004! 
0041 
0041 
0041 
NEXT SEG 
0042 
0042 
rer ee. 2 
0044 
0044 
0044 
0044 
0044 
0044 
Q044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
0044 
NEXT SEG 
0044 
0045 
RI Ok 
0046 
0046 
0046 
0046 
0046 
0046 
0046 


if 


1] 


7 


12 


7 


13 


() 


. 


) 


< 


"PARAMETE"s"R TYPE C's"ONFLICTS"»" WITH PR's"EVIOUS Uy "SE 
"COMPLEY "S"EXPRESS], ON TLLEG", "AL tN Ir" " STATEME" "NT 


"TOO MANY". FORMATS", REFERENYS"CED BUT ","NOT YET %, "POUND 


s 

, 
"COMPLEY Ww ,"EXPRESS yt, woN TLLE Gs "AL, tN RE", "LATION 

s 

’ 


WVARIABLE™, wt ARRAY Bt, toUNn MUSw, UT BE FOR MAL, VARI", "ABLE 
"ARRAY BOts"UND MUSTts" HAVE INMe"TEGER OR," REAL TY", "PE 


"COMMA ORs" RIGHT Pe"ARENTHESt se "TS EXPEC "TED 
ARRAY AL» WREADY GI] tte "VEN BOUN's "DS wt 


0; 


FILL MESSAGEC6s*] WITH 


"ONLY FOR» "MAL ARRA"s"YS MAY BYeoMtE GIVEN "s"VARIABLEts® BOUNDS 


"MISSING "e"LEFT PAR™e"ENTHESSS%-" IN IMPL","LED DO 
"SUBSCRIP™s"T MUST BMe"E INTEGE'%e#"R OR REA") "L 
WARRAY SI%s"ZE CANNOS"T EXCEED"s" 32767 W"e"0RDS 
"COMMON OM,4"R EQUIV "s"BLOCK CAMe"NNOT EXC's"EED 32760 
"THIS STA™S"TEMENT I"s"LLEGAL Ite"N LOGICA". "L IF " 
"REAL OR “"e"INTEGER "e"TYPE REQ*e"UTRED wan 
"ARRAY RO", "UND INFO", "RMATION ve EAU EO 
"REPLACEM™,"ENT OPERMS"ATOR EXPto"ECTED ue oid 
MEDENTIFINS"ER EXPEC ® "TED mer rg 
"LEFT PaR™s"ENTHESTS"»#" EXPECTEN®"D ur 
"ILLEGAL “s*FORMAL P'™,"ARAMETERI,® in 
"RIGHT PA™s"RENTHESI"s"S EXPECT*s "ED oy” 
MSTATEMEN',"T NUMBER," EXPECTEMs "D wit 
WSLASH FX"™,"PECTED ',t 1," wn 

’ 


"ENTRY STs"ATEMENT "se "CANNOT Bee tEGIN PRom 


03 


FILL MESSAGEC7+*] WITH 


"ARRAY MU",S"ST BE Dite"MENSTONE™®"D PRIOR "s"TQ EQUIV's” STMT 


"INTEGER "e"CONSTANT"#™ EXPECTEMs "D use 
"COMMA FX"s"PECTED "1 mt "yn 
"SLASH ORs" END OF "eo "STATEMEN"® "T EXPECT» "ED 
"FORMAT, "s"ARRAY ORs" NAMELIS"#"T EXPECT" s"ED 
"END OF Ss"TATEMENT%#" EXPECTENs "D n,n 


"10 STATE"s "MENT WIT"s"H NAMELI ee "ST CANNO'S"T HAVE I 


"COMMA OR," END OF “a"STATEMEN'® *T EXPECT", "ED 


"STRING T","00 LONG "Ty," tt, ft n,n 
"MISSING "s"QUOTE aT," END OF “s"STRING f,” 
"ILLEGAL iy eTARRAY BO", "UND Ww, it wen 

"TOO MANY," HANGING". * BRANCHEts"S "ft 

"TOO MANY» COMMON "s"OR EQUIV" s "ALENCE E™,» *LeMENTS | 
"ASTERISK," EXPECTE"» th w, ff ” »t 

"COMMA OR"s" SLASH E"»"XPECTEN Ms" Mgt 

"HATA SpT",t TOO LAR" s "GE wf tn 

03 


FYLL MESSAGEL8.*] WITH 


"TOO MANY," ENTRY Ss"TATEMENTHo"S IN THIM,"S SUBPRO”™, "GRAM 


"DECIMAL "e™WIDTH EX"e"CEEDS Fite"ELD WIDT*s"H 


"UNSPECTF',"1ED FIEL"»s"D WIDTH tet wy 
"UNSPECIF™s"IED SCAL%s"E FACTOR es" ", 
"ILLEGAL "e"FORMAT C™a"HARACTERM®" win 


if 


W» *¢ 


w,t 


to 


ef 

tt 
woe 
" 
" 
iy 
" 
"" 
" 


" 


’ 
’ 
*," 
’ 
»' 
fe 
a) 
Ts 
* 
", 
? 
’ 
a’ 
. 


"GRAM UNI","T 


i 9 " 
" 
w 
t, 


" 


ot 
" 


s 
t o' 
" 
»' 
e 
” 
Lil 
be t 
i 


s 
we 
"s 
" 
ae 
'» 
ae 


ew, 
w,t 


ww," 


ma 


ae WORDS 


ue LIST 


%088 
%089 
7090 
%O94 
%092 
%093 
%094 
4095 


%096 


2097 
%098 
2099 
%100 
Z101 
2102 
2103 
%104 
%105 
4106 
%107 
%108 
%109 
%110 
Britt 


2112 


2113 
2114 
2115 
2116 
AAT 
4118 
2119 
%120 
B121 
122 
%123 
z124 
2125 
%126 
2127 


%128 


B29 
%130 
2131 
2132 


00535000 T 
00536000 T 
00537000 T 
00538000 T 
00539000 T 
00540000 T 
00541000 T 
00542000 T 
00543000 T 

13 1S 97 LONG? 
00544000 T 
00545000 T 

START OF SEGMENT * 
00546000 T 
00547000 T 
00548000 T 
00549000 T 
00550000 T 
00551000 T 
00552000 T 
00553000 T 
00554000 T 
00555000 T 
00556000 T 
00557000 T 
00558000 T 
00559000 T 
00560000 T 
00561000 T 

14 IS 97 LONG» 
00562000 T 
00563000 T 

START OF SEGMENT * 
00564000 T 
00565000 T 
00566000 T 
00567000 T 
00568000 T 
00569000 T 
00570000 T 
00571000 T 
00572000 T 
00573000 T 
00574000 T 
00575000 T 
00576000 T 
00577000 T 
00578000 T 
00579000 T 

15 1S 97 LONG,» 
00580000 T 
00581000 T 

START OF SEGMENT # 
00582000 T 
09583000 T 
00584000 T 
00585000 T 


0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
0046 
NEXT SEG 
0047 
0047 
He oR a OR tok 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
0049 
NEXT SEG 
0049 
0050 
HOR Ak 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
00514 
0051 
0051 
0051 
0051 
0051 
0051 
0051 
0054 
NEXT SEG 
0052 
0052 


0054 


7 


14 


7 


15 


4 


16 


(> 


3 


Cj 


O 


"UNSPECIF™s"IEO DECI"+"MAL FIELM*"D wn wan "s 
"DECIMAL "eNFIELD IL"#"LEGAL FOM*"R THIS S"+"PECIFIERM)" ", 
"ILLEGAL, *s"LABEL , tt, If wa "tt , 
MUNDEFINE™ oD NAMEL Ie "ST w,tt r,t ttt W, 
"VMULTIPLYs" DEFINED'%e* ACTION "e"LABELS "," ",( Ws, 
"TOO MANY." NESTED “te"DO STATEe "MENTS at, wet aa) 
"STMT FUN®*YCTION TD%e" AND EXP's"RESSION "s"DISAGREE%s2" IN TYPE te 
"ILLEGAL "s"USE OF S"a!TATEMENTI gS” FUNCTIONS YN wa , 
"UNRECOGN'» "IZED CONT» *sTRUCT w,lt ef wet , 
"RETURNs “e"STOP OR “e"CALL EXIT REQUIR","EM IN SU"s"BPROGRAM"s 
"FORMAT NY, "UMBER US". "ED PREVI» "OUSLY Ast,t LABEL tet Ww. 
0} 
FrLL MESSAGEL9s*] WITH 
"LABEL uS","ED PREVI", "OUSLY AS," FORMAT *, "NUMBER wt," ", 
"NON@STAN®,"DARD RET®,"URN REQUY, "TIRES LABY,"El, PARAMY,"ETERS ar) 
"DOUBLE O"e"R COMPLENe"X REQUIRMS"ES EVEN "e"OFFSET '," W 
"FORMAL PT,"ARAMETER"s" ILLEGALMs"™ IN DATA%s™ STATEMEMS! NT W, 
"TOO MANY™s" LOCAL Vie"ARIABLESte™ IN SOURS "CE PROGR» "AM Ws 
"A SFREEF se "ORM SOURTS"CE LINE "e "MUST HAV 'stE < 67 C%e"0OLS aa) 
"A HOL/ST™>"RING UND"e"ER SFREE%* "FORM MUS"»"T BE ON "s"ONE LINE 2 
"THIS CoN"s"STRUCT I"e"S ILLEGAte"L IN TSS%e™ FORTRAN," "5 
"ILLEGAL “s"FILE CARs "D PARAMEa "TER VALU» "E w,t Wy 
"RETURN Ie"N MAIN P®e"ROGRAM No"OT ALLOW*e "ED my" aa 
WNON@POSI™e"TIVE SUBMe"SCRIPTS "s"ARE ILLE™s "GAL a "yy 
"NONTIDENTS"TIFIER UMe"SED FOR yay Name OF reMUTBRARY "e"ROUTINE es 
MHYPHEN E',"XPEGTED "9" w,? "yt "," ", 
"SEQUENCE'»"” NUMBER “s"EXPECTEDiW es” t,t "," 5 
"TOO MANY." RECURSI"S"VE CALLSts™ ON LIBR's"ARY ROUT". "INE ae) 
"ASTERISK." NOT ALL™s"OWED ID “o™READ STA*s"TEMENT  ',* a 
03 
FILL MeSSaGEC10**) WrTy 

"ASTERISK," ONLY ab™s"LOWFp yNte" FREE FI's"ELO OUTP™, "UT t, 
"TOO MANY*," ¥=FN Ly',"ST EFLEMEMS "NTS IN OM, "PUT "yt ", 
"HOL OR Q","UOTED ST"s"RING > 7s" CHARACTYs "ERS IN Es *XPRESSN ty 
"DECIMAL, ","FIELD GR*,"EATER THis "AN FIELD™s" WIDTH*Sty* " 
wPLUS NoTts ALLOWED +" IN THySt>" FORMAT ","PHRASE ", 
WK NOT AL's "LOWED IN‘ e! THIS FOrat"RMAT PHRtte MASE "," ft, 
"S$ NOT AL™s "LOWED IN'e™ THIS FO"e"*RMAT PHR's "ASE we" % 


"INTRNSCS*e""*NAMD FU"eYNCT MUSTt 2” HAV PRE"e"V EXTRNL's” REFERNC's 
"DATA STM"e"T COMMON"'s"” ELEM MUte"ST BE INS" BLK DAT*stA SUBPRG", 
"VARTABLE"s" CANNOT "s"BE A FOR™e"*MaL PARA" s"METER ORs" IN CMMN',» 


"CURRENT “s"SUBPROGR"2"AM ID EXte"PECTED "y™ de ie "» 

SUBPROGRY s VAM» EXTE"»s"RNAL» OR™M*™ ARRAY ["%s"D EXPECT» "ED "yy 

"REPEATs “"s"WIDTHs A™Ne"ND DECIM™e"AL PARTS"»”™ MUST BE™s™ < 4091 Me 

"REPEAT PMs"aRT MUST%s" BE EMPT%e"¥ OR > OMe" AND < 4%,"091 ", 

"IN SUBPR'™."GMEVARBL"s" ITS USEDts™ PRIOR T'%e"0 USE IN "s™ DATSTMT'» 
8 


"SYNTATIC™s "AL TOKEN'®” CONTAENi&2"S TOO MA™e™NY CHARA™S"CTERSa "os 
03 : 


FILL MESSAGELI1**)] WITH : 
"INTEGER “e"VALUE OF", 8 EXPECTS "TED "yn "," tt, 


“INTEGER "VALUE ort," 4 PXPects"TeD "ft tn w, 


2133 
2134 
$135 
~136 
2137 
%138 
4139 
%140 
BLAS 
Z142 
4143 


Z144 


2145 
2146 
2147 
2148 
4149 
2150 
2151 
2152 
2153 
2154 
2155 
4156 
157 
4158 
2159 


2160 


Z164 
%162 
%163 
%164 
%165 
166 
E167 
4168 
%169 
2170 
ALT. 
%172 
%173 
B174 
%175 


4176 


a177 


00586000 T 0054 
00587000 T 0054 
00588000 T 0054 
00589000 T 0054 
00590000 T 0054 
00591000 T 0054 
00592000 T 0054 
00593000 T 0054 
00593001 T 0054 
00593002 T 0054 
00593003 T 0054 
00594000 T 0054 

16 1S 97 LONG» NEXT SEG 
00595000 T 0054 
00595001 T 0055 

START OF SEGMENT aR OOK Rx 
00595002 T 0056 
00595003 T 0056 
00595004 T 0056 
00596000 T 0056 
00596001 T 0056 
00596002 T 0056 
00596003 T 0056 
00596004 T 0056 
00596005 T 0056 
00596006 T 0056 
00596007 T- 0056 
00596008 T 0056 
00596009 T 0056 
00596010 T 0056 
00596011 T 0056 
00596500 T 0056 

17 1S 97 LONGs NEXT SEG 
00596501 T 0057 
00596510 T Q057 

START OF SEGMENT ok xa ook kk 
00596511 T 0059 
00596512 T 0059 
00596513 T 0059 
00596514 T 0059 
00596515 T 0059 
00596516 T 0059 
00596517 T 0059 
00596518 T 0059 
00596519 T 0059 
00596520 T 0059 
00596521 T 0059 
00596522 T 0059 
00596523 T 0059 
00596524 T 0059 
00596525 T 0059 
00596526 T 0059 

18 1S 97 LONG» NEXT SEG 
00596527 T 0059 
00596528 T 0060 

START OF SEGMENT keke 
00596529 T 00614 


7 


17 


7 


18 


18 


19 


C) 


et 


PRT(443) 


PRT¢ 444) 


PRT(445) 
PRT(446) 


PRT(447) 


Sl 


“og 


"INTEGER ft, "VALUE Ort," 4 OR 8 t,"CYPEFCTED," wt , 

WAN ALPHA™S"BETIC LETa"TTER CAs o"BsCoaeer"e"Z) 1S RE™S"QUIRED ",y 

"SECOND R®,"ANGE LET ,"TER MUST," BE GREA","TER THANt," FIRST tty 

"IMPLIC? Ts" MUST BEte" FIRST SteMTATEMENT's”™ IN PROG*S"RAM UNI Tite 

WREALZINT™s"EGER/LOG™ a" I CAL/COMMs *PLEX/DOU"s"BLEPRECI™» "SION REQ 
"ILLEGAL "s"USE OF A™e"STERISK "etFOR RUN™"o"TIME EDI" s "TING 
"NO PROGR"*®"AM UNIT "ee "FOR THIS"®™ END STA™s"TEMENT ‘to 

0; 


END FILL STATEMENTSS 


END 3 


IF DCINPUT THEN 


BEGIN 
DCPLACECERRORBUFF eNeXTAsLASTSEQsMESSAGELN NIV 1626xCN MOD 169] > 
IF TSSMESTOG THEN TSSMESCTSSMESALCN@LIDIV 48)>5 
ENTIERCCN@1) MOD 48)) ELSE FALSE) 3 
WRITECREMOTE »9,ERRORBUFFE*]) 3 
END 3 
1F LISTOG OR NOT peyNPUT THEN 


BEGIN 
PLACE CERRORBUFF »NsXTAsMESSAGELN DrV 1696%¢(N MOD 16)JeERRORCT,» 
LASTERR) 3 
WRITAROWC14eERRORBUFF) 3 
END 3 
MOVESEQ¢LASTERR*LINKLIST) 3 
END ERRMESS; 


PROCEDURE FLAGROUTINECNAMES *sNAME2*ENTERING) 3 


FLAGROUTINE 


FLAG 


VALUE NAME eNAMEQe ENTERING 3 
ALPHA NAME4eNAME2 3 
BOOLEAN ENTERING 3 
IF ENTERING THEN WRITALISTCFLAGROUTINEFORMATs 7+ "ENTERI "+ "NG*eNAME 1» 
NAMF2s "a" sFIELOCFLAGROUTINGCOUNTER*FLAGROUTINECOUNTER#+1 De 
FLAGROUTYINECOUNTER,O) ELSE 
BEGIN 
WRITALTSTCFLAGROUTINEFORMAT rs 7e"LEAVIN's Gg M,NAMEL»NAMEQ ptr mlty 
FIELNCFLAGROUTINECOUNTER) sFLAGROUTINECOUNTER®0) ? 
FLAGROUTINECOUNTEReFLAGROUTINECOUNTER™@1 $ 
FND 3 
SEND OF FLAGROUTING 
PROCEDURE FLAGCN)? VALUE N$ INTEGER N3 


IF NOT FRRORTOG OR DEBUGTOG THEN 

BEGIN . 
IF Not ¢LISTOG oR SEQERRORS oR DCINPUT) THEN PRINTCARD 3 
ERRMESS(N)3 
IF ERRORCT 2 LIMIT THEN GO To POSTWRAPUPS 


POSTWRAPUP 
GO To SOLVER 


FLOG 


END; 
PROCEDURE FLOG(N)3 VALUE Ns INTEGER N3 


IF NOT FRRORTOG OR DEBUGTOG THEN 
BEGIN FRRORTOG « TRUE? 


",21219 
"9%112" 


19 IS 


1S 


00596530 T 0061 
00596531 T 006} 
00596532 T 0061 
00596533 T 0061 
00596534 T 0061 
00596535 C O061 
00596536 C 0061 
00596599 T 0061 
55 LONGe NEXT SEG 
00597000 T 0062 
START OF SEGMENT kk kek Rx 
20 13 LONGse NEXT SEG 
00597950 fT 0062 
00598000 T 0062 
00598020 T 0063 
00598040 T 0063 
00598050 T 0068 
00598060 T 0071 
00598080 Tt 0075 
00598100 T 0079 
00598120 T 0079 
00598440 T 0081 
00598160 T 0082 
00598180 T 0086 
00598200 T 0087 
00599000 T 0088 
00599500 T 0088 
00600000 T 0090 
92 LONGs NEXT SEG 
00600010 T 0164 
00600020 T 0164 
00600030 T 0164 
00600040 T 0164 
00600050 T 0164 
00600060 T 0167 
00600065 T 0170 
00600070 T 0170 
00600080 T 0174 
00600090 T 0176 
00600100 T 0178 
00600410 T 0179 
00600120 T 0182 
00601000 T 0182 
00602000 T 0182 
00603000 T 0183 
00604000 T 0183 
00606000 T 0187 
00606500 T 0188 
00607000 T 0194 
00608000 T 0192 
00609000 T 0192 
00610000 T 0193 


7 


20 


t 


6 


O 


QO 


) 


“ 


O 


O 


IF NOT ¢LISTOG OR SEGERRORS OR DcINPUT) THEN PRINTCARD $ 00611000 T 0194 
FRRMESSCND$ 00613000 T 0198 
IF ERRORCT 2 LIMIT THEN GO TO POSTWRAPUP; 00613500 T 0199 
ENDS 00614000 T 0202 
PROCEDURE FATALCN)?: VALUE N3 ¢NTEGER N 3 00615000 T 0202 
PRT¢450) = FATAL 
BEGIN 00616000 T 0202 
FORMAT FATALERRC™XXXXXXXX, X188 00647000 T 0702 


START OF SEGMENT #4 Kk 21 
START OF SEGMENT xkxeeeRHKH = 99 
PRT¢451) = FATALERR 


"PREVIOUS ERROR IS FATAL = REMAINDER OF SUBPROGRAM IGNORED» 00618000 T 0000 
Xq7e MXXXXXXXX")G 00619000 T 0000 
eo) 15 19 LONG» NEXT SEG 21 
ERRORTOG « FALSE} 00620000 T 0000 
FLAG(N)? 00621000 T 0000 
WRITALISTCFATALERR® 02020#02000#02000) 3 00622000 T 0001 
WHILE NEXT # 11 Do % LOOK FOR END STMT 00623000 T 0005 
BEGIN 00624000 T 0006 
WHILE NEXT # SEMI DO SCAN3 00625000 T 0006 
FOSTOG «© TRUE} 00626000 T 0009 
SCAN$ 00627000 T 0010 
ENDs 00628000 T 0010 
SFGMENTCCADR+4) DIV 4e NSEGe FALSEe FN0C)3 00629000 T 0011 
SCANS 00630000 T 0014 
END FATAL3 00631000 T 0014 
21 1S 15 LONG» NEXT SEG 6 
REAL STREAM PROCEDURE p2BCRCL)$ BEGIN Sl*BCL3 DIeLOc n2B3s DS+B8OCT END; 00631100 T 0202 
PRT¢452) = n?B 
REAL PROCENURE GET¢r1)$ VALUE I3 {NTFGER 1 3 00632000 T 0203 
PRT¢453) s aFT 
BEGIN 00633000 T 0204 
GET «© INFOCCT «12 eTReftetC} 3 00634000 T 0704 
END GET} 00635000 T 0208 
PROCEDURE pUTCTeVLU)s VALUE JeVLUF INTEGER I3 REAL VLU 3 00436000 T 0210 
PRTC454) 5 PUT 
BEGIN 00637000 T 0210 
INFOCCIeloeTReleIC] « VLU : 00638000 T 0210 
END PUTS ; 00639000 T 0214 
PROCEDURE GETALLC Is INFAs INFBs INFC)3 00640000 T 0214 
PRTC4559) = GETALL 
VALUE I3’ INTEGER Is REAL INFAsINFRoINFC $ 00641000 T 0214 
BEGIN , 00642000 T 0214 
INFA © INFOEDCI©1I),IReIT.IC] 3 00643000 T 0214 
INFB © INFOCCTel +i. etRelelC)3 00644000 T 0218 
INFC © INFOCClel+i) srReleIcy3 00645000 T 0222 
END3 00646000 T 0226 
PROCEDURE PUTCCIsV)3 VALUF 1,V3 INTEGER 13 REAL V 3 00646100 T 0226 
PRT¢456) = PUTC 
TF f*T>SUPFRMAXCOM THEN FATAL¢C124) ELSE COMEI,IRe Ll. ICleV 3 00646200 T 0226 
REAL PROCFOURE GETCC1)3 VALUF ¥3 INTEGER 1 3 00646300 T 0233 
PRT¢457) = GFTc 
GETC#COMEerer),PRet.1C) ? 00646400 T 0233 
PROCEDURE BAPCeV)$ VALUE Vi REAL V 3 00646500 T 0239 
PRT¢460) = RAPC . 
IF NEXTCOMeNEXTCOM+1>SUPERMAXCOM THEN FATALC124) 00646600 T 0239 
T 0242 


ELSE COMENFXTCOM,IReNEXTCOM,ICI]¢V 3 00646700 


O) 


STREAM PROCEDURE MOVEW(F*TsDomM)3 VALUE Doms 00647000 T 0246 


O) PRT(461) = MOVEW 
BEGIN SI « F3 DI « Ts DCDS «32 WDSs DS « 32 WOS)3 DS «© Mm WOS$ END; 00648000 T 0246 
*, PROCEDURE CALLEQUIVC1+BsG)3 VALUE I,sBeG? INTEGER I$ REAL G3 BOOLEAN B 3 00649000 T 0250 
es PRT(€462) = CALLEQUIV 
BEGIN REAL AeT*eRe INFAsINFC3 00450000 T 0250 
es START OF SEGMENT * kk RK 23 
i STACK(F42) = A 
STACKCF+3) = T 
sie STACK(F+4) = R 
STACKEF45) = INFA 
STACK¢F+6) = INFC 
ae RrAL LASTeD# LABEL L3 00650100 Tt 0000 
a STACK(F47) = LAST 
STACK¢F410) = D 
; PROCEDURE CORRECTINFOCRsA)$ VALUE R,As INTEGER ReAs 00651000 tT 0000 
a PRT¢463) = cORRECTYNFO 
COMMENT THyS PROCEDURE CORRECTS THE INFO TABLE FOR COMMON AND 00651010 T 0000 
EQUIVALENCE ELEMENTS, 00651020 T 0000 
UU IF ITEMS ARE IN CoMMON THE INFACEQ] BIT IS SET 00651030 T 0000 
THIS BIT 1S USED To TELL DATA STATEMENTS THAT THIS IS A 00651040 T 0000 
a COMMON ELEMENT AND IF NOT IN BLOCK DATA SUBPROGRAM EMIT 00651050 T 0000 
Le SYNTAX ERROR 168+ 00651060 T 0000 
THE INFACCE] BIT IS SET TO TELL THAT IF THE CLASS IS VARID 00651070 T 0000 
2 EMIT CODE AS IF THrS ITEM WERE ARRAYIO BUT DO NOT 00651080 T 0000 
C ALLOW SUBSCRIPTINGS 00651090 T 0000 
BEGIN 00652000 T 0000 
- REAL TeJ*®LASTeLeREL»TNODBIT*# INFAsINFBeINFCS 00653000 T 0000 
i START OF SEGMENT xe RK Hoke 24 
STACKCF+2) = T 
7 STACK¢Fe3) = I 
ce STACK¢F 44) = LAST 
STACK¢F4+5) 2 L 
Pe STACK¢F46) = REL 
STACKCF47) = TWODBIT 
STACK¢F 410) = JNFA 
7 STACK¢Fet1) = INFB 
se STACKeF412) = INFC 
a gee REAL crRtIT3 00654000 T 0000 
. STACK¢F413) = CFRIT 
ae DEFINE LB = LOWERBOUND#; 00655000 T 0000 
TWODRIT « REALCLENGTH > 1093)3 00656000 T 0000 
- CEBIT « REALCLENGTH > 433 00657000 T 0001 
ty Te RI 00658000 T 0002 
DO 00659000 T 0003 
= BEGIN 00660000 T 0004 
id LAST#GETCET)LASTC™1 3 00661000 T 0004 
FoR | « T+2 STEP 1 UNTIL LAST DO 00662000 T 0006 
a BEGIN 00663000 T 0010 
ie IF GETCCI)eCLASS = ENDCOM THEN I*GETCCI)eLINK 3 00664000 T 0010 
INFA*GETCL©GETCCI) LINK)? INFC*GET(L+2) 3 00665000 T 0014 
3 IF INFC > 0 AND LB # 0 THEN 00666000 T 0019 
VA BEGIN 00667000 T 0020 
IF BOOLEANCINFA eADJ) THEN 00668000 T 0021 
" REL « @INFC,BASE ELSE REL « INFC,BASE3 00669000 T 0022 
OC PUTCL4#2e"CINFCRCREL@LB)CTOBASEJ))3 00670000 T 0025 
END$ 00671000 T 0028 
oO 
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O 
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O 


Cy 


UO 


© 


O 


PUTCLe INFA&TWHODBITLTOADJISCEBITETOCEJRALTOEQI)3 
ENDS 
END UNTIL TeGETcCT).ADDRER 3 
FNQD CORRECTINFO3 


LABEL X1T$ 
1F DEBURTOG THEN FLAGROUTINEC™ CALLENe"QUTV ,TRUE ) 3 
COMMENT THIS PROCEDURE MAKES THE DETERMINATION IF THIS GROUP 

‘ IS EQUIVALENCE oR COMMON IF BOTH TREATED AS COMMON? 

+ y} 
GROUPPRT « LENGTH « A « O3 
LOWERBOUND « 320003 
Da BEGIN IF GETCCT).«CE=t THEN 
BEGIN IF GROUPPRT # 0 THEN 
BEGIN XTA&«G ? 
FLAGC2)3 
END} 
GROUPPRT*#GETCASGETCCOT+1))eADDR 3 
END} 
Ip T > R THEN R « T3 
END UNTIL TeGETCCT),ADDR=Y 3 
tp GROUPPRT = 0 THEN 
IF B THEN BEGIN BUMPPRT3GROUPPRT<«PRTS END ELSE OWN 
BFGIN BUMPLOCALS$’ GROUPPRT«+LOCALS + 1536 FND3 
T « R3 
SWARYCT « O3 


SSNMp6JeLOCALS ¢  SSNMf77«PARMS % SSNME8]+PRTS ; 

SSNMr9JeLSTS 3 SSNMri07eLSTA SSNMrid)eTV 5 
SSNMC{2]¢SAVESUBS# SSNMri3}«NAMETND § SSNMPL4)+LSTy ; 
SSNMP 45 76FX4 3 SSNMP 16] «6X2 *  SSNMr171¢FX3 ; 
SSNMEyS76NX4 ; 

SEENADOUB+FALSES% 


OO IF GETC¢CT+4) #4 O THEN BEGIN EQUIVCT)$S TeR? END 
FLSE TeGETCCT),ADOR UNTIL T = R3 
IF GetceT) > O THEN EQUYIVCT)3 


LOCA),S«SSNME61# PARMS«SSNME7]% PRTS*SSNMEB]3 LSTS*#SSNM[9] 3 
LSTAeSSNME10]3 TVeSSNME11]# SAVESUBS+SSNME42]3 NAMEIND«*SSNMC13] 3 


LSTIeSSNME14]3 FXL©SSNM[15]3 FX2«SSNME16)]3 FX3«SSNMC17] 3 
NXt*SSNMC16] 3 
LENGTH « LENGTH = LOWERBOUND$3 
IF SFENADOUB THEN 
SEENADOUBeFALSES 
IF A = 0 THEN 
BEGIN COMMENT THIS 1S AN EQUYTVALFNCE GROUP? 
IF SWARYCT 2 1 AND LENGTH = 1 THEN LENGTH « 23 

Ip LENGTH > 1 THEN 

BrGIN 

A « ENTER(#O & ARRAYHDrTOCLASS] & GROUPPRTETOADDR],» 
FQVID + EQVID+193 
PUTCA+2» O & LENGTHETOSIZE1)3 

END?E 

COoRRFECTINFOCR,0)3 

Go To X1T3 
END3 
COMMENT THIS IS A COMMON BLOCKS 
IF T © CINFC © GETCA+2)9,S1ZE # 0 THEN 
IF T € 1023 AND LENGTH > 1023 THEN 


LENGTH*LENGTH+LENGTHef4731]3% EVEN UP LENGTH 


24 


i) 


00672000 
00673000 
00674000 
00675000 


T 
T 
T 
T 


40 LONG,» 


00676000 
00676040 
00676100 
00676110 
00677000 
00678000 
00679000 
00680000 
00681000 
00682000 
00683000 
00684000 
00685000 
00686000 
00687000 
00688000 
00689000 
00689100 
00690000 
00691000 
00691500 
00691510 
00691520 
00691530 
00691540 
00691550 
006914800 
00691900 
00691950 
00692000 
00692010 
00692020 
00692030 
00692040 
00693000 
00693500 
00693600 
00694000 
00694100 
00694150 
00694200 
00694300 
00695000 
00696000 
006967100 
00696200 
00697100 
00697200 
00697300 
00697400 
00700000 
00701000 


AA HH HAHAH HHH HHH AHA HHH A TH A A IA a Hs tt se st FH HSH 


0028 
0032 
0033 
0035 
NEXT SEG 
0000 
0000 
0002 
0002 
0002 
0002 
0004 
0005 
0007 
0009 
0010 
0014 
0011 
0014 
0014 
0016 
0019 
0019 
0025 
0034 
0034 
0035 
0039 
0043 
0046 
0050 
0051 
0053 
0057 
0063 
0065 
0069 
0073 
0077 
0078 
0079 
0082 
0084 
0085 
0085 
0088 
0089 
0090 
0092 
0094 
0096 
0096 
0097 
0098 
0098 
0098 
0101 


O CQ 


O 


) 
f 


© 


O- "QO "OO Or 3G 6 


O 


C3 


PRT¢464) 


PRT(465) 


= 
~ 


Pa4 


STACK (CF 42) 
STACK(F 43) 


PRT(466) 


PRT( 467) 


PRT¢4709 


a 


BEGIN XTA © GETCA+193 FiAGC4 
IF TY < LENGTH THEN PUTCA+29 INF 
IF LENGTH = 1 THEN LENGTH « 23 
CORRECTINFOCR#1)3 
XITs 


7 
C 


~~ jee 


) 
&L 


HCTOSIZE)) ELSE LENGTH « Ts 


IF LENGTH > 32767 THEN BEGIN XTA «* GETCA41)3 FLAGCL100) END} 


IF DEBURTOG THEN FLAGROUTINEC™ CALLE 's"QUILV 
END CALLEQUIVS 


STREAM PROCEDURE STOSEQCXRsSEQe1D)3 
STOSEQ 
BEGIN LOCAL T$ 


VALUE 1D3 
LABEL Lisle 3 


"sFALSE) 3 


Sy ¢ LOC IDs DLeXRe HSe7LIT"OMS DSe CHR SteSp4i3 


Ie Sc 2 "0" THEN 
BeGtN SyeSy443 DreDre23 
5ctF Scs= * " THEN Sy «& Sym] 


ELSE BEGIN DSeCHR3 S{eSt=2% DreDI"23 END)3 


EnD ELSE 
BEGIN DI«DI=63 


6CIF Sc=" " THEN BEGIN TALLY*TALLY#1s SIe*SI41 END 


ELSE DS«CHR)3 
TeTALLY} 
Enns 
DreXR$ OleDl +83 ST*SEQs 
BcIF SCH" ™ THEN SI*Si+1 ELSE JUMP OUT To L1)3 


GO Le! Lit SIT*SEQ3 HSeWDS3s L2! 
DreDI+4s STeLOc Ts SteSyt+73 OS«CHR} 
ENO} 
PROCEDURE FNTERXCIDENTsADINFO)S VALUE IDENTe ANDINFOS 
FNTERX 


REAL IDFNT#ADINFOS 
BEGIN RrAL ReS 3 


uo 
nn 


Ir ADINFO,CLASS>LABELID THEN 
BFGIN 
XREZIEADINFGOS STOSEQCKXReLINKLIST» IDENT) 3 
IF ADINFOLCLASS=FUNID THEN XRE21, 02684] «Sel 
SE IEC ERG RES XGLOBALS«TRUE 3 
EN 
IF R+XRI MOD XRBUFFDIV3=s0 THEN 
IF XRI#0 THEN WRITECXREFFeXRBUFF eXRRYC*)) 3 
XRRYCCRERER#ERIFZI©ADINGQRSL 2624781) 3 
STOSEQCXRRYCRISLINKLISTs IDENT) 3 


DS*8LIT"BLANKSEQ"; 


we 


Ip XRI«XRI¢12¢1 THEN BEGIN XRE3IG©IDENTs XRE4]*XRRYL2] END 3 


END ENTERX$ 


STRFAM PROCEDURE TRANSFERCWOr Bok 93 
TRANSFER 


VALUE K 3 


BEGIN DIl*W23 SI*Bs Sresil+8s KCDSeWDS3 SIl*SI+16) END 3 


BOOLEAN STREAM PROCEDURE CMPACF,S)3 
CMPA 


BEGIN Ste FY DI «© S$ IF 8 SC €¢ NC THEN TALLY « 1% CMPA*TALLYS END? 


BOOLEAN PROCEDURE CMP¢AsB)3 ARRAY AeBrol; 
CMP 


BEGIN 


23 18 


START OF SEGMENT 


25 18 


00702000 
00702100 
00703000 
00704000 
00705000 
00705100 
00705110 
00706000 
127 LONG 
00706010 


00706015 
00706020 
00706025 
00706030 
00706035 
00706040 
00706045 
00706050 
00706055 
00706060 
00706065 
00706070 
00706075 
00706080 
00706085 
00706090 
00706095 
00706120 


ARH AHN AWA AA HAA Oe tt st +4 


00706150 
00706200 


*--—4 


00706220 
00706240 
00706260 
00706280 
00706300 
00706320 
00706340 
00706350 
00706360 
00706380 
00706450 
00706500 

37 LONG 
00706525 


00706530 
00706560 


i ee ee 


00706570 
00706600 


“44 


00706610 T 


eee res 


0000 
0001 
0001 
0005 
0009 
0015 
0015 


_ 0017 


0023 
0027 
0029 
0034 
NEXT SEG 
0266 


0266 
0269 


0269 
0272 


0272 


6 


25 


6 


C} 


'?) 


Oe SO De Ae EOE ue 


Con! i. AS 


O 


CMP « tr ArO) < BLO? THEN TRUF FLSE IF ALO) = BF0] THEN 00706640 T 0272 
te AC2),£26¢4) < B8£2)3,02614] THEN TRUE FLSE 00706650 T 0276 
Tr At2],f2634] = BL2),€26:4] THEN CMPACAr1]»8£1]) ELSE FALSE 00706660 T 0280 
ELSE FALSES 00706670 T 0286 
END; 00706680 T 0287 
PROCEDURE HV¢V)3 ARRAY V[O]3 00706700 T 0289 
PRT¢471) = HV 
FILL VEx] WITH OCT7I7ITIT77T7777777*OCTI7 777777777777 HOCTIT77TTITT7 777773 00706720 T 0289 
START OF SEGMENT oka RRR x 26 
BOOLEAN PROCEDURE INPC(XR)3 ARRAY XREOJ3 00706730 T 0291 


26 1S 3 LONGs NEXT SEG 6 
PRTC472) = INP 


BEGIN LABEL EOFS REAL R 3 00706733 T 0292 


START OF SEGMENT ox sae x a ok x 27 
STACKCF4+3) = R 


1F EODS THEN READCXREFGe 3eXRE*IJLEOF) ELSE 00706735 T 0000 
PRT¢473) = FOF 
1F rT ¢ IT+1 > XRE THEN 00706750 T 0006 
BERIN FOFS JNPeTRUES yT#XRe*O} END 00706760 T 0008 
ELSE BEGIN 00706770 T OO011 
IF ReerT=1) MOn XRBUFFDIV3=0 THEN READCXREFF sXRBUFF «XRRYL*]) 3 00706780 T 00114 
XReOJeXRRYVCReRGReRI$ XREDIeXRRYCR42ITi TRANSFERCXRELI]»XRRYCRI04) 3 00706800 T 0018 
END 3 00706810 T 0025 
FN OF NP $ 00706820 T 0025 
27 1S 30 LONGs NEXT SEG 6 
PROCEDURE VARTABLENIMS¢AsC)3 VALUE Ae C# REAL As C3 00707000 T 0292 
PRT¢a74) = VARIABLEDIMS 
BEGIN 00708000 T 0290 
REAL NSUBS»s BOLINKe BOUND» [3 00709000 T 0292 
START OF SEGMENT oko tk Ok a 28 
STACK(CF+2) 3 NSUBS 
STACKCF43) = BOLINK 
STACK(F +4) = BOUND 
STACK(CF45) = I 
LABE!, XIT3s 00710000 T Q000 
IF DEBUGTOG THEN FLAGROUTINECtTVARIABs"LEDIMS's TRUE ) 3 00710010 T 0000 
IF NSUBS « C,NEXTRA = 1 AND AySUBCLASS < DOUBTYPE THEN GO TO XIT3 00711000 T 0002 
BDLINK « C,ADINFO; 00712000 T 0006 
FOR + «© 1 STEP 1 UNTIL NSURS DO 00713000 T 0007 
BEGIN 00714000 T 0010 
IF BOUND © EXTRAINFOrBDLINKeIRe BOLINK.IC] < O THEN 00715000 T 0010 
; EMITOPDCLITCBOUND) ELSE EMrTNUMCBOUND)$ 00716000 T 0013 
BnLINK * BDLINKwt3 00717000 T 0015 
Ip 1 > 1 THEN EMITOCMULY)3 00718000 T 0017 
ENDS, 00719000 T 0019 
IF A,SUBCLASS 2 DOUBTYPE THEN EMITPAIRC2, MULI3 00720000 T 0021 
FMITPA?TR¢ CeS1ZFe STD) 00721000 T O0024 
XyTe 00722000 T 0025 
TF DEBURTOG THEN FLAGROUTINECVARIABY,"LEDIMS*,FALSE) 3 007292010 T 0096 
END VARrTABLEDIMS3 00723000 T 0028 
28 IS 33 LONGs NEXT SEG 6 
PROCEDURE EMITDCReoP)% VALUE R»OP3 REAL ReOP} FORWARD? 00723100 T 0792 
PRT(475) = EMITD 
STREAM PROCEDURE SETPNT CH] »WoePNT*CLeSUBCeSTARsPOS*#FeSaQ) 3 00723140 T 0292 
PRTC476) = SETPNT 
VALUE Ci,+SUBCeSTARsePOSeFeSeQ 3 00723150 T 0292 


BEGIN FeSt«Wis SleS1+23 DIePNT 3 00723160 T 0292 


C} 


(> 


} 


C} 


IF SC2"O" THEN 
BEGIN NS«5CHRs DS#LIT® "3 DpeDI763 DSeSFILL 3 
END ELSE BEGIN DS*6LIT" "3 DI*PNT$ DS*Q CHR END) 3 
SCDTeEPNTS DreN1+63 DS*LIT™ "3 
St « LOC SUBC3 SI * S142} DS «+ 6 CHR3 DS « LIT ™ 3 
SteLOC CLS SteSy+23 DSe6CHR$ DSeLIT" 53 
NIePNTS Nrenir+2i3 
POSCDIeDI+11)3 
S1 « LOC STARS S] «© S1#73 DS « CHR 
St « W23 PSe8CHR 3 
S1 « LOC STARS SI «© SI1+73 DS « CHR? 
ENn OF SETPNT 3 
PROCEDURF PTCEOF,REC)SVALUF EOF3 BOOLEAN FOF3 ARRAY RECLO]3 


PRT¢&77) = PT 


STACK ¢F 42) 


PRT¢500) = 


STACK ¢F 42) 
STACK(F 43) 
STACK ¢(F 44) 


STACKCF 45) 


STACKCF 46) 
STACKCF 47) 


STACK EF +10) 


PRT¢501) = 


BEGIN |,ARBFL L638 REAL L ? 
= L . 
IF EqF THEN WRITECLINE*® ¢5*PRINTBUFFE*)) 
FLSE 
IF ROOLEANCL©REALCRECLOJ eRECLCOIRRECE 2) €1826843=XTA)) THEN 
BEGIN 
IF ITe1T+#1=9 THEN 
BEGIN LASTLINE*FALSES WRITECLINEs 15ePRINTBUFFE*]) 3 
L6% BLANKITCPRINTBUFFei5eIT*«0) 3 
END 3 
SETPNTCRECLOJPRECE LJ ePRINTBUFF #KLASSCRECD2],CLASSIJeTYPESCRECE2] 
»SUBCLASSI,1IF BOOLEANCREC( 21) THEN "*" ELSE " “sITeLates 
LASTLINEs6"RECL2),02753)) 3 
FND 
FLSE BEGIN 
LASTLINE*TRUES WRITECRITE®15ePRINTBUFFEO*I)$ XTARECIO] 3 
GO L6 3 
END 3 
FNp OF PT 3 


PROCENURFE CHECKINFOS 
CHECK TNF O 
BEGIN REAL te Ts AB 


= | 
= T 
= A 
REAL LASTF3 


= LASTF 
REAL INFBs INFC3 


= INFB 
s INFC 
LABEL NXT ALPHA N3 
= N 
FORMAT :NFOFC 3¢A6be X2)5 
INFOF 
* ADDRESS = "ses A2, Ade 
", LENGTH = "» J5.s 
*, OFFSET = “%, [5)>5 
INFOTC 7 "LOCAL IDENTIFTERS#")>» 
LABFCA6sX1i0s"LABEL Ree ADR = "el6e%e SEGMNT = "a P 593 


START OF SEGMENT 


285k 


START OF SEGMENT 


START OF SEGMENT 


00723170 T 0293 
00723180 T 0294 
00723200 T 0296 
00723210 T 0298 
00723230 T 0300 
00723240 T 0301 
00723250 T 0303 
00723255 T 0303 
00723265 T 0305 
00723280 T 0305 
00723295 T 0306 
00723325 T 0307 
00723450 T 0307 
00723470 T 0307 
Pere eer ty 
00723520 T 0000 
00723595 T 0003 
00723610 T 0005 
00723620 T 0009 
00723630 T 0009 
00723640 T OO011 
00723650 T 0018 
00723660 T 0020 
00723670 T 0020 
00723680 T 0023 
00723690 T 0027 
00723700 T 0029 
00723710 T 90029 
00723720 T 0030 
00723730 T 0036 
00723740 T 0037 
00723800 T 0037 
40 LONGse NEXT SEG 
00724000 T 0307 
00725000 JT 0307 
Pore rere. Sy 
00725100 T 0000 
00726000 T 0000 
00727000 T 0000 
00728000 T 0000 
Peres tee 2 
00729000 T 0o000 
00730000 T 0000 
00731000 T 0000 
00732000 T 0000 
00733000 T 0000 


29 


6 


30 


31 


O 


) 


O) 


C) 


C} 


1F PRTOG THEN 
WRITALISTCINFOTs Os 02020, 0r0200000) $ 
IF J « SEARCHC'ERR ") # 0 THEN 

TF GETCLI), CLASS = UNKNOWN THEN PUTCI #40 Noeseset)3 
IF 1 « SEARCHC'END ") # 9 THEN 

IF GETC€I)2 «CLASS = UNKNOWN THEN PUTCI 419 "“seogene't)3 
IF NoT DCINPUT THEN IF I*SEARCHCYZIP ") # 0 THEN 

IF GETCT)eCLASSSUNKNOWN THEN PUTCI 41 9"epeenet) 3 


FOR 1 # O STEP 4 UNTIL NEXTCOM Do 


IF GFTCCI)+CLASSS=HEADER THEN 


IF GFTCcl),CE=1 THEN 
PUTC¢TeGETCOI4#1),LINK+2)>GETCTIROLTOADINFOI) 3 


T # oF WHILE T «< NEXTINFO pO 
BEGIN 
GFTALLCT»AsINFBsINFC)3 
Ip 1 © AsCLASS > FILFEID THEN GO TO NXT3 


Ip N « INFB = "seaen.” THEN GO TO NXT3 
XTA « Ne 

le 1 = LABELTD THEN 

BEGIN 


tr A > O THEN FLAGC19) ELSE 
IF PRTOG THEN WRITALISTCLABFs 3#NsAADDR DIV GsAySEGNOp Op 0n On Or 
0) 3 
GO TO NXT3 
EnD3 
If | = FORMATID THEN 
1F A > O THEN BEGIN FLAGC62)3 GO TO NXT END! 
1 = NAMELIST THEN 
IF A > 0 THEN BEGIN FLAGC136)$ GO TO NXT ENDS 
1 = ARRAYYD THEN 
1F BOOLEANCAsCE) THEN BEGIN IF A>O THEN TeGETSPACECT) END 
ELSE IF A<O THEN 
1F BOOLEANCA.FORMAL) THEN 
BEGIN IF SPLINK > 1 AND ELX > 1 THEN 
BEGIN & THIS IS A FORMAL PARAMETER FOR A SUBROUTINE OR A 
FUNCTION THAT HAS ONE OR MORE ENTRY STATEMENT. THIS 
PARAMETER WILL BE INITIALIZED TO AN ARRAY DESCRIPTOR 
To 0 So THAT IF THE PARAMETERS ARE NOT SET UP BY THE 
CALL ANY REFERENCE TO THEM WILL CAUSE AN INVALID 
ADDRESS 
IF LASTF = O THEN & FYRST TyMe THRU 
RBFEGIN LASTF « A.ADDRS 
EMITDESCLIT¢2)s EMITLC1)$ 
EMITD¢50epIA2$ FMITDC102D1B)2 EMITD¢10eTRB)S 
EnD ELSE EMITPAIR¢(LASTFs,0D)3 
EMITPAIRCAeADDR»SND)3 
END 


a2 FQ BV 3 2 


END 
ELSE ARRAYDECCT)3 
IF PRTOG THEN 
WRITALISTCINFOF*® 7s INF Be 
IF BOOLEANCA,TYPEFIXED) THEN TYPESECA,SUBCLASS] ELSE "™ ", 
KLASSCA,CLASS] > 
IF AsADDR «< 1024 AND A < 0 THEN "Re" ELSE ™ My 
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1S 


37 LONG 


00734000 
00735000 
00736000 
00737000 
00738000 
00739000 
00739100 
00739200 
00740000 
00741000 
00742000 
00743000 
00744000 
00745000 
00746000 
00747000 
00748000 
00749000 
00750000 
00751000 
00752000 
00753000 
00754000 
00755000 
00755010 
00756000 
00757000 
00758000 
00759000 
00760000 
00761000 
00762000 
00763000 
00764000 
00764020 
00764040 
00764060 
00764070 
00764080 
00764090 
00764100 
00764110 
00764150 
00764200 
00764220 
00764240 
00764260 
00764280 
00764300 
00764320 
00765000 
00766000 
00767000 
00768000 
00769000 
00770000 


a as a sas a as ts ts at tt ts i 


NEXT SEG 
0000 
0000 
0004 
0006 
0010 
0012 
0016 
0020 
0024 
0029 
0030 
0030 
0033 
0040 
0040 
0043 
0043 
0044 
0047 
0048 
0049 
0050 
0050 
0052 
0060 
006} 
0061 
0061 
0062 
0065 
0066 
0069 
0070 
0074 
0075 
0076 
0079 
0079 
0079 
0079 
0079 
0079 
0079 
0080 
0082 
0083 
0086 
0088 
0089 
0089 
0089 
0090 
0091 
0093 
0096 
0097 
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C) 


O 


} 


Ge SOR. Gs 3 aa 


OF 13> 1 3 a A ee) 


'e 


S 


() 


@) 


IF A < 0 THEN B2DCA.f26310)) ELSE "NULL, 


INFC,SIZE» 
_ YNFC,BASEsO) 3 
IF BOOLEANCA.CE? THEN IF AsSURCLASS 2 


NOUBTYPE THEN 


1F BOOLEANCINFC,sBASE) THEN FLAG(C146)3 


NxT?3 
T « T4433 
ENDS” 
END CHECKYINFOs 


PROCEDURE SEGMFENTSTART3 


PRT¢502) = SEGMENTSTART 


BEGIN 
NSEG « WXAVIL «© NXAVIL + 13 


IF LrSToG THEN WRITALISTCSEGSTRT si +NSEG2 0900000202020) 


DEBUGADReADRe™1 3 

IF NoT SEGOVFLAG THEN 

BEGIN 
DATAPRT«#DATASTRT*DATALINK«DATASKP* 
LABELMOM « BRANCHX « FUNVAR « 
OT # SPLINK « NEXTCOM «© ELX ©« O3 
NEXTSS «© 10223 
INIT TTALSEGNO « NSEG3 


FOR 1 «+ O STEP 1 UNTIL LBRANCH DO BRANCHESEI] ©« I+13 


FOR + « O STEP 1 UNTIL SHX DO STACKHEAD(E I] « O3 


NeXTINFO « LOCALS © 23 

FoTOG « FALSE RETURNFOUND * FALSES 
ENDS. 
ENDSFGTOG « FALSE 


IF SeaSW THEN LINFSEGENOLINGO203¢0 & D2BCLASTSEQ) 610220828) 3 


FND SEGMENTSTART3 
PROCEDURE FIXPARAMS¢1)? VALUE 13 INTEGER 13 


PRT¢503) = FYXPARAMS 
BEGIN 

REAL, FMINUSs NPARMSe ELINK, 1{,ABX3 
STACK¢F +2) = FMINUS 
STACK¢CF +3) = NPARMS 
STACK¢F+4) = ELINK 
STACKCF+5) = LABX 

REAL PLINKXe PLINKS 
STACK(F 46) = PLINKX 
STACKCF+7) = PLINK 

REAL PTYPEX»s PTYPE3 
STACK(CF 410) = PTYPEX 
STACK¢EF S11) = PTYPE 

REAL Cus INF3 
STACK(F+12) = CL 
STACK¢F413) = INE 

LABEL ARRY» LOAD» INDX?3 

REAL EWORDS 

STACK¢ F414) = EWORD 


IF DEBURTOG THEN FLAGROUTINEC# 
EWORND « FNTRYLINK(YTJ3 
FLINK « EWORD,LYNK 
IF LABX « EWORD. CLASS > 0 THEN 
BEGIN 


FIXP™s"ARMS 


",TRUE ) 3 


; 


00771000 T 0101 
00772000 T 0104 
00773000 T 0405 
00773100 T 01406 
00773200 T 0109 
00774000 T O111 
00775000 T 0112 
00776000 T 0113 
00777000 T 0119 
30 18 4123 LONGs NEXT SEG 
00778000 T 0307 
00779000 T 0307 
00780000 T 0307 
00781000 T 0309 
00782000 T 0314 
00783000 T 0316 
00784000 T 0317 
00784100 T 0317 
00785000 T 0317 
00786000 T 0317 
00787000 T 0323 
00788000 T 0324 
00789000 T 0324 
00790000 T 0330 
00791000 T 0334 
00792000 T 0335 
00793000 T 0339 
00794000 T 0339 
00794400 T 0341 
00795000 T 0347 
00796000 T 0347 
00797000 T 0347 
00798000 T 0347 
START OF SEGMENT #%«# Ke x Kd x 
00799000 T 90000 
00800000 T 0000 
00801000 T 0000 
00802000 T 0000 
00803000 T 0000 
00803010 T 0000 
00804000 T 0002 
00805000 T 0003 
00806000 T 0004 
00807000 T 0006 


6 


32 


©) 


O 


EMITOCMKS)3 
FMITDESCLITCLABELMOM)3 
EMITLCLABX)3 

EMITL¢1)8 EMITLC1)93 EMITLOCO) 
EMITOPDCLIT¢BLKCNTRLINT)3 


EMITLC1)3 EMI TPAIRCFPLUS2sSTD) 3% F+2eTRUE FOR BLKXIT CALL 


END} 
FMINUS « 19203 
NPARMS « CJ*GETCELINK+2)),NEXTRA? 
IF NPARMS > O THEN 
BEGIN 
PELINKX « EWORD,ADDR™NPARMS+#13 
PTYPEX « J,ADINFO + NPARMS#13 
FOR J « 1 STEP 1 UNTIL NPARMS DO 
BrGIN 
PLINK # EXTRAINFOrPPLINKX,sIRaPLINKX IC 73 
PTYPE «© EXTRAINFOCPTYPEXsIRePTYPEX.ICI],CLASS$ 
FMINUS © FMINUS#13 
IP PLINK s O THEN 
BFGIN - 
EMTTOPHCLITCFMINUS); 
EMT TLOLARX « LABX=#1)3 
EMITNESCLITCLABELMOM)$ 
EMT TOCSTN); 
END ELSE 
BEGIN 


$106" 


%106= 


IF CL # CINF «© GETCPLINK))eCLASS = UNKNOWN THEN CL « VARID3 


XTA «© GETCPLINK#4+1)3 

IF PTYPE = 0 THEN EXTRAINFOECPTYPEX,IRePTYPEXeICI] CLASS 
« PTYPE « CL3 

CASE PTYPE OF 

BEGIN 3 


*CASE STATEMFNT DESCRIPTOR* 


IF CL # ARRAYID THEN FLAGC(79) ELSE 
ARRY?$ 
BEGIN 
FMINUS « FMINUS#13 
IF INF < 0 THEN 
BEGIN 
EMITPAIRCFMINUSs LOD) 
EMITPAIRCT#INF,ANDR»s STD)3 
EMITOPNOCLITCEMINUS™] )3 
EMITPALR¢(T"141. STpd3 
END? 
END: 
IF CL # VARID THEN FLAGC80) ELSE 
LOADS 
BEGIN 


IF INF,SUBCLASS2DOQUBTYPE AND CL=VARID THEN FMINUS«FMINUS+14 $3 


IF INF<0 THEN 
BEGIN 
EMITPAIRCFMINUSs LOD)3 
EMITPAIRCT«INF ,ADDRsSTD)3 
IF INF, SUBCLASS2DOUBTYPE AND CL=VARID THEN 
BEGIN EMITOPDOCLITCFMYNUS™1)3 
EMITPATReTet*ST0)3 
END? 


%105« 


00808000 
00809000 
00810000 
00811000 
00812000 
00812400 
00813000 
00814000 
00815000 
00816000 
00817000 
00818000 
00819000 
00820000 
00821000 
00822000 
00823000 
00824000 
00825000 
00826000 
00827000 
00828000 
00829000 
00830000 
00831000 
00832000 
00833000 
00834000 
00835000 
00836000 
00837000 
00838000 


00839000 
00840000 
00841000 
00842000 
00843000 
00844000 
00845000 
00846000 
00847000 
00848000 
00849000 
00850000 
00851000 
00852000 
00854000 
00854100 
00854200 
00854300 
00855000 
00856000 
00856100 
00856200 
00856300 
00856400 


AHH AHHH HM HHH HHH AHA HH TO A tH 


AHAVAH HHUA HHH HHH Ht 


0006 
0007 
0008 
0008 
0011 
0011 
0013 
0013 
0014 
0017 
0017 
0018 
0020 
0022 
0028 
0028 
0030 
0034 
0035 
0036 
0036 
0037 
0039 
0039 
0040 
0040 
0041 
0045 
0046 
0050 
0052 
0053 


0053 
0055 
0056 
0056 
0057 
0058 
0058 
0059 
0061 
0062 
0064 
0064 
0064 
0066 
0068 
0068 
0072 
0072 
0073 
0074 
0076 
0078 
0080 
0081 


O 


O 


C) 


Ch 


C) 


S 


QO 


O wy -2. © 


Ci 


FND 3 00856500 T 0084 
FND3 00857000 T 008j{ 
ae ae cae 00858000 T 0082 
IF CL = FUNID THEN GO TO LOAD ELSE FLAGC81)3 00859000 T 0082 
00859100 T 0084 
00859200 T 0084 
00859300 T 00864 
00859400 T 0084 
00859500 T 0084 
$ 00860000 T 0084 
1F CL = FUNID OR CL = SUBR1D OR CL = EXTIO THEN GO TO LOAD 00861000 T 0084 
ELSE FLAG(83)3 00861100 T 0087 
IF CL = SUBRID THEN GO TO LOAD ELSE FLAGCB2)3 00862000 T 0089 
$3 00863000 T 0092 
BEGIN 00864000 T 0092 
IF CL = ARRAYID THEN 00865000 T 0092 
BEGIN 00866000 T 0092 
EXTRAINFOCPTYPEX, IRsPTYPEX,IC},CLASS © CL3 00867000 T 0093 
GO TO ARRY 00868000 T 0097 
END3 00869000 T 0098 
INDX? 00870000 Tt 0098 
IF CL # VARID THEN FLAG(80)3 00871000 T 0098 
FMINUS «© FMINUS413 00872000 T 0100 
IF INF < 0 THEN 00873000 T 0101 
BEGIN 00874000 T 0102 
EMITOPDCLITCFMANUS™1)3 00875000 T 0102 
EMITDESCLITCFMINUS)3 00876000 T 0103 
EMITPAIRCINE,ANDRe STD)3 00877000 T 01404 
ENDS 00878000 T 0106 
ENDS 00879000 T 0106 
IF CL = VARTD THEN GO TO LOAD ELSE FLAG(80)3 00880000 T 0106 
GO TO TNDX3 00892000 T 01309 
END CASE STATEMENTS 00893000 T 0409 
START OF SEGMENT kx dk & 
17 LONGse NEXT SEG 
A « INF,SUBCLASS3 00894000 T 0110 
IF T « EXTRAINFOCPTYPEXsIR» PTYPEX.IC]eSUBCLASS = 0 OR 00895000 T 0111 
T = INTYPE AND A = REALTYPE THEN 00896000 T 0115 
EXTRAINFOLPTYPEX,IRePTYPEX,1C],SUBCLASS ¢ A ELSE 00897000 T 0117 
IF T # A THEN 00898000 T 01424 
BEGIN XTA « GETCPLINK+193 FLAGCB8) END} 00899000 T 0123 
ENDS 00900000 T 0126 
PLINKX « PLINKX#13 00901000 T 0126 
PTYPEX « PTYPEX™13 00902000 T 0127 
END3 00903000 T 0128 
PLINKX «© PLINKX*#"NPARMS3 00904000 T 0130 
FOR J * 1 STFP 1 UNTIL NPARMS DO 00905000 T 0132 
BEGIN 00906000 T 0133 
PLINK * EXTRAINFOCPLINKXe TRePLINKX.IC)3 00907000 T 0333 
IF PLINK # 0 THEN 00908000 T 0135 
IF CA*GETCPLINK)),CLASS = ARRAYID THEN 00909000 T 0136 
TF T*GETCPLINK+2) «< 0 THEN VARIABLEDIMSCAs T)3 00910000 Tt 0139 
PLINKX «© PLINKX#13 00911000 T 0143 
ENDS 00912000 T 0144 
END} 009143000 T 0147 
EMTTRCGFTCELINK+2),BASE & (GFTCFLINK) «SEGNOIETOSEGNOJ» FALSEDS 00914000 T 0147 
1F DEBUGTOG THEN FLAGROUTINEC® FIXP%,"ARMS ,FALSE) 3 00914010 T 0151 


CP i = ae) 


\ 
} 
a 


e 


O 


PRT(505) = 


STACKCF+42) 
STACK(F 43) 
STACK¢(F 44) 
STACK¢F 45) 
STACK ¢F +6) 
STACK(F 47) 
STACK¢F 410) 
STACK¢F 411) 
STACK¢F 412) 
STACK ¢F413) 
STACK ¢F 414) 
STACK (F415) 


STACK (F416) 
STACK ¢F 417) 
STACK(F 420) 


STACK (F421) 
STACKCF +22) 


END FIXpARAMS3 


PROCEDURE XREFCORESORT 3 
XREFCORESORT 
BEGIN 
REAL FeGsHelodeKeLoTeoTTelJoMe IN 3 


32 1S 


START OF SEGMENT 


= F 
= G 
= H 
= | 
a J 
a K 
sob 
= T 
= 1T 
z= J 
= M 
= TN 
; SAVe ARRAY ArOtXRywq)e tLeTULO%B] 3 
= IL 
s IU 
ARRAY WoeW3LO%XRIet] 3 
= Wo 
= W3 
LABFL LielL2sL3areL4eLSeL6eLiteLieeLisreLia 3 
DEFINE CMPARGTCA) * AsNAME=TN THEN IF CIF GeW30CHeAe 0231011402614] 
STT«eW3CF eT. £2210]1],026:4)] THEN NOT CMPACW2CHI» 
WEF ]) ELSE G>TT) #e 
CMPARLSCA) = AsNAMFSTN THEN IF CIF GeW3LH*T, £2241033.026t4) 
STTeW3CF eA. C2210)),02694] THEN NOT CMPACW2EHI» 
W2tF]) ELSE GoTT) #.e 
NAME = £12336] # 3 
deXRIW13 GeXR1 DIV K*XRBUFFDIV33 HeXRBUFF 3 
FOR Let STEP 4 UNTIL G DO 
} BEGIN 
Liat READCXREFFeHeXRRYC*ID3 TRANSFERCW2CTe CL"12xX50] eXRRYeK) 3} 
TJeT+Kei3s TNew3 ; 
FOR FeT STEP 1 UNTIL Ty DO 
BEGIN ALFI*XRRYFTNG©TNG3I8FL223881033 W3CEI]*XRRYLTN42) END; 
FND 3 
IF uw=XRBUFF THEN IF KexRI MOD K DIV 140 THEN BEGIN H*3XK3GO Lit END? 
GO 4 3 
Lit IF ALKel] NAME> TNeCTeAr Je Ce Led) +141).637241071),.NAME THEN 
L138 BEGIN ALIGJ©ALIIJ ArityeTs TN*CT#ALLU])2.NAME END 
ELSe IF CMPARGTCACIJ) THEN GO L12 3 
IF ALJJeNAME<TN THEN 
BEGIN 
Li4: ACIJI©ALJ]$ ALJI6T 3 
IF TNeCT*ALI J] sNAMECALT J «NAME THEN 
L138 BEGIN ALIJIJ*©*ACIT]# ACTI*T? TNeCT®ALI UJ) «NAME END 
ELSE IF CMPARGTCACIJ) THEN GO L13 3 
END 


ELSpr IF CMPARLSCACJ]) THEN GO L144 3 
L2t TF atbLebet],NAME>TN THEN 60 L283 IF CMPARGTCAELJ) THEN GO L2 3 
L3t IF alKekK+1],NAME<TN THEN GO L335 IF CMPARLSCACK]) THEN 60 L3 3 


00975000 T 0153 
160 LONGs NEXT SEG 
00915100 T 0347 
00915120 T 0347 
00915140 T 0347 
Pees Te ee 
00945160 T 0000 
00915180 T 0005 
00915200 T 0008 
00915220 T 0008 
00915240 T 0008 
00915260 T 0008 
00915280 T 0008 
00915300 T 0008 
00915320 T 0008 
00915340 T 0008 
00915360 T 0008 
00915380 T 0012 
00915400 T 0014 
00945420 T O014 
009145440 T 0021 
00915460 T 0024 
00915480 tT 0025 
00915500 T 0030 
00915520 T 0035 
00945540 T oO040 
00915560 T 0041 
00915580 T 0048 
009154600 T 0053 
00915620 T 0066 
00915640 T 0068 
00915660 T 0068 
00915680 T 0071 
00915700 T 0075 
00915720 T 0080 
00915740 T 0093 
00915760 T 0093 
00915780 T 0106 
00915800 T 0122 


6 


34 


C} 


~~ 


O 


STACK(F+2) = ] 


Las 


L6: 


IF kK LEO L THEN BEGIN DOUBLECALKI +ALL] s*sACLIJeALK])$ GO L2 END 3 
IF L+K>J+1 THEN BEGIN TLEMJe13 TUCMIJ*Ls Tek END 
ELSr BEGIN ILEMJ#K3 IUrMJeJd; JeL END 3 


MeM4si 3 


IF ++10<J THEN GO L1 3 
IF 150 THEN IF I<J THEN GO L1 3 
FOR ter+1 STEP 1 UNTIL J nO 
TF ALKer"y).NAME>TNeeTeALIJ),NAME THEN 


BEGIN 

ATK+1}¢ACKIF TF ALKekK™1]7eNAME>TN THEN GO L5 3 
IF CMPARGTCArCK]) THEN GO LS } 

ACK4+q]«T 3 

END 


ELSE IF CMPARGTCALK]) THEN GO L5 3 
IF ¢MeM"}) GE@ O THEN BEGIN TeILEMJ# JerUCM)3 GO L4 END 3 


GeXRIm] 


FOR +0 STEP 14 UNTIL G DO 
IF BOOLEANCL©REALCACTIGAL II sNAMERCTNeN SC U©ALT),£29103390137694) 


FLSE 


WRITECLINE® 15*PRINTBUPFL*))¢ 


=XTA)) THEN 
BEGIN 
IF [Te fT+1=9 THEN 
BEGIN LASTLINE*FALSES WRITECLINEs15*sPRINTBUFFE*)) 3 
BLANKIT¢PRINTBUFF®15eIT*+0) 3 
END 3 
SETPNTCALIT J »W20N],PRINTBUFF e KLASSCTN«CLASS J*sTYPESCTN, 
SUBCLASS]»y]F BOOLEANCTN) THEN "#" ELSE * Mot Te Late 
LASTLINE,GR™N,( 27331) 3 
END 
BEGIN 
LASTLINE*TRUES 
GO L6 $ 
END $ 


WRITECRITE*I5sPRINTBUFFE*J)$ XTAcATT] 3 


XRJ«O 3 


END OF XREFCORESORT }? 


PROCEDURE SETUPSTACK 3} 
PRT(506) = SETUPSTACK 
BEGIN 


REAL 13 


EMI TOPOCLIT(C16)3 


EMITLOL)3 


EMITOCAND)3 
EMITLC1693 
EMI TOCSND)3 


FOR + + 1 STEP 1 UNTIL LOCALS DO EMITLCO)S 


CHECKINFO$ 


IF DaTAPRT # 0 THEN 
BFGIN ADJUSTS EMITOPNCLITCMATAPRT)$ EMITOCLNG)$ EMITBC@™1sTRUEDS 


DATASKPeLAX$ EMITBCDATASTRTsFALSE)S FIXBCDATALINKDS 
EMITL¢C122 EMITPATRCDATAPRT¢STDI$3 FIXBCDATASKP)3 


END SETUPSTACK3 


PROCEDURE BRANCHLIT(X*#Y)3 VALUE XsY¥3 REAL X$ BOOLEAN Y$ 


00915820 T 0138 
00915840 T 0142 
00945860 T 0148 
00915880 T 0152 
00915900 T 0153 
00915920 T 0155 
00915940 T 0158 
00915960 T 0162 
00915980 T 0166 
00916000 T 01467 
00916020 T 0473 
00916040 T 0485 
00946060 T 0187 
00916080 T 0187 
00916100 T 0200 
00916120 T 0205 
00916140 T 0206 
00916160 T 0207 
00916180 T 0210 
00916200 T 0213 
00916220 T 0213 
00916240 T 0215 
00916260 T 0221 
00916280 T 0224 
00916300 T 0224 
00916320 T 0226 
00946340 T 0230 
00916360 T 0232 
00916380 T 0232 
00916400 T 0233 
00946420 T 0240 
00916440 T 02740 
00946460 T 0243 
00916480 T 0248 
34 1S 256 LONG» NEXT SEG 
00916900 T 0347 
00917000 T 0347 
00918000 T 0347 
START OF SEGMENT 4x ok kk ew 
00919000 T 0000 
00920000 T 0a000 
00921000 T 0001 
00922000 T 0002 
00923000 T 0003 
00924000 T 0003 
00925000 T 0008 
00925010 T 0008 
00925020 T 0009 
00925030 T 0012 
00925040 T 0015 
00925050 T 0038 
00925060 T 0018 
00926000 T 0018 
35 IS 21 LONGs NEXT SEG 
00927000 T 0347 


6 


35 


6 


Oo oOo © Oa a 


Oe. 6G a BO OY a a 


5 
yi 


< 


PRT(507) & 


PRT(510) 5 
STACK(F +2) 
STACK(F +3) 


STACK(CF 44) 
STACKCF+5) 


STACK (F 46) 
STACKCF 47) 


BRANCHLIT 


anu 


sty 


BEGIN 


IF ADR 2 4075 THEN 


BFGIN ADR «+ ADR+13 


ADJUST} 


IF X,SEGNO#NSEG THEN BEGIN 


PROCEDURE SFGMENTCSZeCURSEGsSFGTYPsFN0C)3 & WRITES OUT FDOC AS SEGMENT 


SEGOVF END3 


If ¢PRTS412e63722]=1 AND Y THEN 


EMITOPDCLITCPRGDESCBLDRE2,0eCADR+5) DIV 4+1eNSEG)) 


ELSE EMITOPDCLITCPRGDESCBLDRC 2200 CADR+5) DIV 4eNSEG)) END 
ELSE 
EMITLCCADR#5) DIV 4 = X,LINK DIV 4) & 

END BRANCHLIT3 


VALUE SZeCURSEGsSEGTYP3 
REA!, SZeCURSEG} 
BOO|.EAN SEGTYP? 


ARRAY EDOCLOr*0]5 
BEGIN 


T 
BEGINSUB 


ENDSUB 
HERE 


I 
CNTR 


1F DEBUcTOG THEN FLAGROUTINECt 


STREAM PROCEDURE miCFeT)# BEGIN DI « T3 


REAL T3 


REAL BEGINSUB> 


LABEL 


INTEGER I> 


WRITEPGMS 


yF NOT SEGTYP 


BEG1N 


ADJUSTS 


BOPRTfBDX,.BDX4+4] « PRGDESCBLDRC 15 Os 


% TRUE TO WRAP UP A SUBROUTINE BLOCK 
% FALSE TO WRAP UP A SPLIT BLOCK 


% UPDATES PDPRT WITH PSUENO 
% UPDATES PDPRT WITH PSUEDO 


& CONTAINS DATA To WRITE? 


ENDSUBs HERES 


CNTR# 


SEGM", "ENT 


THEN GO TO WRYITEPGM3 
1F SPLYINK > 4 AND NOT RETURNFOUND THEN 
REGIN XTA « BLANKS’ FLAG(i42) END} 
1F SPLINK « O THEN 


",TRUE ) 


cADR+1) DIV ade 


FOR I « 1 STEP 1 UNTIL LOCALS Do EmITL¢0)3 


EMITBCORINITIALSEGNOCTASEGNOI)>» 


IF SPLINK = 4 THEN 


& MAIN PROGRAM 


IF STRTSEG # O THEN FLAGC75)3 


STRTSEG « NSEG 
PRGDESCBLDRC1»> Os 


FMI TBCORINTTIALSEGNOPTOSEGNO)s 


CHECKINFOS 
END 

ELSE 
BEGIN 

ADJUST3 

SETUPSTACK3 
END 


FLSE 


& 


CADR4+1) DIV 4, 


FALSE)3$ 


NSEG)£18233215)33 


FALSE) 


3 


SI « F3 OS « 2 WDS END; 


NSEG)3 


00928000 
00929000 
00930000 
00931000 
00932000 
00932300 
00932700 
00933000 
00934000 
00935000 
00936000 
00937000 
00938000 
00939000 
00940000 
00941000 
00942000 
00943000 
00944000 


START OF SEGMENT 


00945000 


00946000 


00947000 
00948000 


00948010 
00949000 
00949100 
00949200 
00950000 
00951000 
00952000 
00953000 
00954000 
00955000 
00955500 
00956000 
00957000 
00958000 
00959000 
00960000 
00961000 
00962000 
00963000 
00964000 
00965000 
00965500 
00966000 
00967000 
00968000 


44 


AAA AHH HAHN HAA A HAA HAH 


0347 
0347 
0348 
0351 
0354 
0353 
0355 
0359 
0364 
0364 
0367 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 


kK IO xk 


0000 


0001 


0001 
0001 


0004 
0003 
0003 
0005 
0007 
0008 
0009 
0009 
0014 
0020 
0020 
0020 
0022 
0022 
0022 
0023 
0024 
0024 
0026 
0027 
0030 
0030 
0030 
0032 
0032 


C) 


C) 


C) 


CO) 


O 


TF ELX $ 7 THEN 
BEGrN 

ANJUST3 

T « PRGDESCBLDR(C1, GET¢SPLINK),ADDRse ¢ADR+1) DIV 4, NSEQ)3 

SETUPSTACK3 

FIXPARAMS(O0)3 

INFOCSPLINKe IR» SPLINK,IC],SEGNO « NSFEG3 
END 

ELSE 
BEGIN 

ADJUST3 

BFGINSUB «© CADRt1) & NSEGETOSEGNO)3 

EMITLC17)3 EMITOCSTD)3 

SETUPSTACK} 


EMITOPDCLITC17)$3 EMITOCGFW)? 

ENDSUB « ADR & NSEGLETOSEGNO)} 

FOR J] « 0 STEP 1 UNTTL ELX#1 90 
BEGYN 

ADJUST? 

HERE © CADR+1) DIV 43 

T « ENTRYLINKEII,LINKS 


BVOID 


T « PRGDESCBLOR( 1. GFT¢T).ADDR* HERE» NSEG)3 
BRANCHLITCENDSUBsFALSE)3 
EMI TB¢CBEGINSUBs, FALSF)3 
AnJUST3 
FIXPARAMS¢])3 


INFOCCENTRYLINKETI+LINK) gIR#CENTRYLINKET ]eL INK) ¢ 10], SEGNOeNSEG} 


END; 
ENO; 
$Z «© CADR+4) DIV 43 
CNTR * O3 
CURSEG « NSEG} 
WRITEPGM? 
NSEG © (CT «© SZ) + 29) DIV 303 
IF DALOC DIV CHUNK < I «* (NALOC#+NSEG) DIV CHUNK 
THEN DALOC « CHUNK x 73 % INSURE SEGMENT DONT BREAK 
% ACROSS ROW 
IF LISTOG THEN WRITALISTCSFGENDs2eCURSEG?T#09090s0,000) § 
POPRTCPDIRePDIC) « 2 PDPRT ENTRY FOR SEGMENT 
SZ&DALOCIDKAC) 
& GETCSPLINK) 61224424] 
&CURSEGLSGN0C]3 
IF ERRORCT = 0 THEN 
DO BEGIN 
FOR yO STEP.2 WHILE I < 30 AND CNTR e SZ DO 
BEGIN MICFDOCECNTR, £3823] sCNTReL41871} 2CODECT))3 
CNTR « CNTR + of 
ENDS 
WRITECGODECDALOC))3 
DALOC « DALOC +13 
END UNTIL CNTR 2 S23 
PMINX « PDINX 4143 
IF NOT SEGOVFLAG THEN 
IF PXREF THEN 
IFCEODS«(NEXT=E0F))AND NOT XGLOBALS THEN ELSE 


00969000 
00970000 
00971000 
00972000 
00973000 
00974000 
00975000 
00976000 
00977000 
00978000 
00979000 
00980000 
00981000 
00982000 
00982100 
00983000 
00984000 
00985000 
00986000 
00987000 
00988000 
00989000 
00990000 
00991000 
00992000 
00993000 
00994000 
00995000 
00995500 
00996000 
00997000 
00998000 
00999000 
00999100 
01000000 
01001000 
01002000 
01003000 
01004000 
01005000 
01006000 
01007000 
01007100 
01008000 
01009000 
01010000 
01011000 
01012000 


01013000 


01014000 
01015000 
01016000 
01017000 
01018000 
01018025 
01018100 
01018110 


0032 
0034 
0034 
0035 
0039 
0039 
0040 
0044 
0044 
0044 
0045 
0045 
0047 
0049 
0049 
0049 
0051 
0053 
0057 
0057 
0057 
0059 
0064 
0061 
0064 
0065 
0066 
0066 
0067 
0071 
0073 
0073 
0075 
0076 
0076 
0077 
0079 
0081 
0083 
0083 
0088 
0090 
0092 
0093 
0095 
0095 
0097 
0402 
0407 
04109 
0109 
0114 
0115 
0116 
0118 
0119 
0120 


() 


C3 


PRT¢591) 


PRT¢542) 


PRT¢(513) 
PRTC514) 


PRT(515) 


STACKER S109 


STACK¢F 411) 


a" of 


BEGIN KLASS(6] « "LABEL "3 
WRITECXREFFaXRRUFF e®XRRYL*I) $ 
IF FIRSTCALL THEN DATIME ELSE WRITECPTREPAGE]))3 
IF SPLINK<O THEN 
BEGIN WRITE CPTR»e XHEDB)#REWINDCXREFF) SEND 
ELSE 
IF FODS THEN BEGIN -WRITECPTR»XHFDG)? REWINDCXREFG) FND 
ELSE BEGIN REWPNDCXREFF)# C2eCXRE4), SUBCLASSx245)3 
IF pTeXRE4),CLASS=FUNID THEN WRITECPTR»XHEDFe 
XREC2TaXREOC2+i] eXRC3IIeXRIC2412)» 
*LISTs LABEL, OR SEGMENT DESCRIPTOR# 
XREC2413] g timo m omit ) 
FLSF TF IT=SUBRID THEN WRITECPTReXHEDS»XRr3le 
*LIST, LABEL, OR SEGMENT DESCRIPTOR* 
Meeemweett) ELSE WRITECPTR»XHEDM)3 
ENDS 
[TeXTAeO 
LASTLINE « FALSE3 
BLANKITCPRINTBUFF #152093 
IF XRI>1023 OR EQDS THEN SORTCPT#INP*O+HVsCMPs 304000) 
0101833000000000 3042066001 7ZERRORCT000000304 
MERGE 
ELSE XREFCORESORT 3 
SORT 
REWI[NDCXREFF)3$ 
PXREFeIF XREF THEN TRUE ELSE FALSE3 
KLASSC6] © "ERROR "3 
IF ¢NOT SEGTYP AND FODS) OR CSEGTYP AND LISTOG AND 
NOT SEGPTOG) THEN WRITE ¢CPTREPAGE))3 
END} 
IF LISTOG AND SEGTYP AND SEGPTOG THEN WRITECPTREPAGE])3 
1F SEGTYP THEN 
BEGIN 
FOR yel2ei7 STEP 4 UNTIL 24239 STEP 1 UNTIL 41, 
50 STEP 1 UNTIL 57 DO TYPELIJ*REALID 3 
= *TEMPORARY STORAGE* 
FOR 1¢25233 STEP 1 UNTIL 37 NO TIPELIIJ«INTID 3 
= *TEMPORARY STORAGE* 
LASTNEXT«1000 3 
END 3 
ENDSEGTOG « TRUE} 
TSEGSZ « TSEGSZ + SZ3 
COMMENT IF SEGSW THEN LETS ALSO WRITE OUT THE LINE SEGMENTS 
THAT WE VE GoNE To SUCH TROUBLE BUILDING, LINESEG 
CONTAINS A CARD SEQUENCE NUMBERCBINARY) IN C1028] 
AND THE WORD BOUNDARY ADDRESS OF THE FIRST CODE 
SYLLABLE IN (3881093 
IF SEGSW THEN 
TF NOLIN > 0 THEN 
BFGIN 
LINEDICTECURSEGeIReCURSEG.IC] * & UPDATE LINE DICTIONARY 
0 & NOLYNG182332457 & pALOCL338332815]3%FOR THIS SEGMENT 
CNTR « OF DO BEGIN 
FOR 1 « O STEP 2 WHILE 1<30 AND CNTR<NOLIN DO 
BEGIN 
MICLINESEGECNTRe fC 3893)sCNTR, C4187) ],CODFCIDDS 
CNTR « CNTR + 2 


01018120 
01018125 
01018130 
01018135 
010184140 
01018145 
01018150 
01018160 
01018170 
01018180 


0101418190 
01018200 


01016240 
01018220 
01018260 
01018280 
01018320 
01018330 


01018340 


01018350 
01018355 
01018360 
01018370 
01018375 
01018380 
01019000 
01019100 
01019110 
01019150 
01019160 


04049470 


01019190 
01019200 
01020000 
01021000 
01021010 
01021450 
01021200 
01021250 
01021300 
01021350 
01021360 
01021400 
01021450 
01021500 
01021550 
01021600 
01021650 
01021700 
01021750 


- SS ee ee ee 


AHA HAH 


a 


AAA HAHAHAHA HA 4 


0123 
0125 
0129 
0137 
0137 
0143 
0143 
0149 
0153 
0158 


0167 
0170 


0183 
0192 
0192 
0194 
0195 
0197 


0218 


0221 
0223 
0226 
0227 
0230 
0236 
0236 
0242 
0243 
0243 
0253 


0260 


0267 
0268 
0268 
0270 
0271 
0271 
0271 
0271 
0271 
0271 
0272 
0273 
0273 
0276 
0277 
0279 
0284 
0284 
0289 


O) Cj 


‘S. 


() 


Ch 3h. SG) 


ENDS 01021800 T 0290 
WRITECCODELDALOCI])3 01021850 T 0294 
DALOC « DALOC + 43 01021900 T 0296 
END UNTIL CNTR 2 NOL INE 01021950 T 0297 
END 3 01021955 T 0298 
IF NOT SEGOVFLAG THEN XRI te 03 01021957 T 0298 
IF DEBUGTOG THEN FLAGROUTINEC" SEGMs"ENT tsFALSE) 3 01021959 T 0304 
END SEGMENTS 01022000 T 0303 
36 IS 309 LONGs NEXT SEG 
PROCEDURE WRITEDATACSZ»sSEGsARY)3 % WRITES OUT TYPE 2 SEGMENTS 01023000 T 0368 
VALUE S2Z»SEG3 01024000 T 0368 
REAL, SZ*SEG3 01025000 T 0368 
ARRAY ARY(CO}3 01026000 T 0368 
BEGIN 01027000 T 0368 
INTEGER TeNSEGe le CNTR 01028000 T 0368 
START OF SEGMENT kee ee KK EE 
STACK¢(F+2) = T 
STACK(F43) = NSFG 
STACK¢(F 44) = |] 
STACK¢F45) = CNTR 
INTEGER TYPES 01029000 T 0000 
STACK¢F46) = TYPE 
| STREAM PROCEDURE M30¢F,72S7)3 VALUF S23 01030000 T 0000 
PRT¢546) = M30 
BEGIN 01031000 T 0000 
St « F? DI « T3 DOS « SZ WDS3 01032000 T 0000 
END M303 01033000 T 00031 
IF SZ 2 0 THEN TYPE « 9 ELSE SZ « #SZ3 01034000 T 0001 
NSEG « ¢(¢€ T « SZ) + 99) DIV 303 01035000 T 0005 
IF DALOC DIV CHUNK «< I « CDALOC#NSEG) DIV CHUNK 01036000 T 0007 
THEN DALOC « CHUNK x I} 01037000 T 0009 
POPRTEPDIRePDIC] « 01038000 T 0012 
SZ&DALOCEDKAC] 01039000 T 0014 
RTYPELSTYPC]) 01040000 T 0015 
&SEGESGNOCI]3 01041000 T 0016 
PDINX © PDINX # 13 01042000 T 0018 
IF ERRORCT = 0 THEN 01043000 T 0019 
FOR ~ « O STEP 30 WHrLeE I « SZ DO 01044000 T 0020 
BEGIN 01045000 T 0024 
MB30CARYCI],CODECO)s IF ¢SZ™1) > 30 THEN 30 ELSF CSZ"1))3 01046000 T 0024 
WRITE CCODECDALOC))3 01047000 T 0032 
NALOC « DALOC + 13 01048000 T 0036 
END; 01049000 T 0038 
Tr LISTOG THEN WRITALISTCSEGENDs 2eSEGe Te Or 0e0r00020) 3 01050000 T 0038 
TSEGSZ «© TSEGSZ + SZ} ; 01051000 T 0043 
END WRYTEDATAS 01052000 T 0044 
37 1S 48 LONGs NEXT SEG 
REAL PROCEDURE PRGDESCBLDR¢DTsPRT*sRELADR*SGNO)3 01053000 T 0368 
VALUE DTsePRTeRELADR» SGNOS 01054000 T 0368 
REA} OT»PRTsRELADRe SGNO} 01055000 T 0368 
BEGIN 01056000 T 0368 
FORMAT FMTCYPRTSsAdo, REL*ADREpAdes SEGE™s 140%, TYPES"sA2)3 01057000 T 0368 
START OF SFGMENT #2 & Hk & 
START OF SEGMENT # xe kk eee 
PRT(517) = FMT 
39 IS 13 LONGe NEXT SEG 
IF PRT=O THEN BEGIN BUMPPRT’ PRT+PRTS ENDS 01058000 T 0000 


6 


37 


38 
39 


38 


C) 


() 


O 


C) 


CO) 


C) 


C) 


e) 


©) 


C) 


O 


PMPRTICPDIRePNIC] « 
O&NTEDTYPC) 
&PRTCPRTAC] 
&RELADRERELANCI 
&SGNOPSGNOC]3 
POINX « PpINX + 43 
TF COMETOG THEN WRITALISTCEMTs4 se Ben PRT) eB2DCRELADR) »SGNO> 
tF DTSO THEN "AE" ELSE IF pT=1 THEN "PD" ELSE "LD%s0202020) 3 
PRGDESCBLDR « PRT3 


END PRGDESCBLDR; 


PROCEDURE FQUrV¢RI3 VALUE Rs REAL R3 


COMMENT 


BEGIN 


DEFINE BASS 


I 7 
LABE:, XIT* CHECK 3 
IF DEBUGTOG THEN FLAGROUTINEC™ 


THIS PROCEDURE FIXES UP THE INFO TABLE FOR THE EQUIV OR 
COMMON RING, THE FIRST ELEMENT PAST HAS AN OFFSET ¢DO NOT 
ALTER THIS) THE TYpE IS FIXED, THE OFFSET IS DETERMINED 
FROM THE FIRST, CoRRECTINFO ADJUST THE OFFSET IF THERE 
IS A NEGATIVE OFFSET ON ANY ELEMENT, THE INFALADJ) BIT IS 
SET IF THE ELEMENT HAS A NEGATIVE OFFSET. IF THE ELEMENT 
APPEARED IN MORE THAN ONE EQUIVALENCE STATEMENT OR AN 
EQUIVALENCE STATEMENT AND A COMMON STATEMENT THE ELEMENTS 
ARE LINKED BY COMELASTC] WHICH POINTS TO THE HEADER 
OF THAT STATEMENT? 


LOCALS #, % THESE DEFINES ARE USED TO REDUCE THE 


i 


REL = PARMS #, & STACKSIZE OF FQUIV FOR RECURSION 
t = PRTS #, 
T = LSTS tt, 
Q = LSTA t, 
LAST == ‘TV t, 
B = SAVESUBS #, 
P = NAMEIND #, 
PRIX = _LSTY t, 
c = FXY #, 
INFA = FX2 t, 
INFB = FX3 #, 


NFC NX4 #3 


EQUMsN"TV ",TRUE ) 3 


IF GETCCR)<O THEN GO TO XIT 3 
PUTCERa@GETCC(R)) 3 

PRTX « GROUPPRT3 
CeREALCGETCER) sCEH1) 3 
LASTeGETCCR),LASTC#1 3 
BASSeGETCC(R+1)3 Ped 3 


FOR 


+ R4+#2 STEP 1 UNTIL LAST DO 


BEGIN TF GETCCT)«CLASSSENDCOM THEN I¢GETCCI) LINK § 
GETALLET#GETCCI)D,LINKe INFA,INFBstNFC) 3 


IF QeINFC.SIZESO THEN % 


A SIMPLE VARIABLE 


TNFC.SIZE « Q@ « 4F INFAL SUBCLASS $ LOGTYPE THEN 1 ELSE 23 
PUTET+#251NFC)3 


IF tNFA.SUBCLASS>LOGTYPE THEN 


SEENADOUB«TRUES 


1F BOOLFANCC) THEN 
BrFGIN COMrFPW1],RELADDeRFLeP 3 


Pe P 4+ Q3 


END FLSE COMrPW1],RELADN+REL+BASS*GETC*1).RELADD 3 


TF NFA 


< 0 THEN 1F NFA eADJ = 4 THEN 


38 


1S 


01059000 
01060000 
01061000 
01062000 
01063000 
01064000 
01065000 
01066000 
01067000 
01068000 


30 LONG 


01069000 
01069100 
01069110 
01069120 
01069130 
01069140 
01069150 
01069160 
01069170 
01069180 
01069490 
01070000 
01071000 


START OF SEGMENT 


01071100 
01071200 
01071250 
01071400 
01071500 
01071600 
01071700 
01071800 
01071900 
01072000 
01072100 
01072200 
01073000 
01073010 
01074000 
01075000 
01076000 
01077000 
01078000 
01079000 
01080000 
01081000 
01082000 
01083000 
01084000 
01085000 
01085500 
01086000 
01087000 
01088000 
01089000 
01090000 


ABH AHHH HA BHAA AAA RAAT IA A AA THAI KAA HHA A SH A | 


0005 
0008 
0009 
0010 
0011 
0012 
0014 
0017 
0023 
0024 
NEXT SEG 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 
0368 


eR ROKK OK 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0003 
0005 
0006 
0008 
0010 
0013 
0017 
0021 
0024 
0026 
0031 
0032 
0036 
0036 
0041 
0042 
0052 


6 


40 


is 


On, ~ “@) 


© 


a AOR “@> © 


STACK¢(F43) 


STACKCF +4) 


PRT(520) 


IF DEBUGTOG THEN FLAGROUTINEC™ 


END3 


B «+ wINFC,BASE = REL ELSE B « INFC,BASE = REL3 


FOR } « R+2 STEp 1 UNTIL LAST Do 


BEGIN IF GETCCT)eCLASS=ENDCOM THEN I*GETCCIdeLINK 3 


GETALLOT*#GETCCL «LINK INFA®INFBsINFC) $3 
IF INFA.CLASS 
PeB+GETCCI)sRELADD } 
Q@ «+ INFC 


IF 


BFGIN IF INFA 


INFA 


= 1 THEN 


SIZES 
< 0 THEN 


SWARYCT « 13 


eADJ = ¢ THEN BASS « =JNFC 


BASS ¢ INFC,BASE3 


IF P #8 
RFGIN XT 
GO TO CH 


END? 


INFA 
IF INFA 


tNFA 


- 
—  efLA 
~TYPEFY 


tNFC*BASE « P3$ 
PUT¢T4+2,qNFC)3 
IF P < O THEN JNFA P 


PUT(¢T» 
CHECKS 


INFA)3 


ASS THEN 
A « INFB 
ECK3 


INFA 
SS = UNK 
XFD «+ 13 


+ FLAGC2) ENDS 


& PRTXrTOANDRI: 
NOWN THEN YNFA 


ADJ « 43 


TF P+Q@ > LENGTH THEN LENGTH « P+Q3 


IF P < LOWERBOUND THEN LOWERBOUND « P3 


END$ 


FOR 1 « R+2 STEP 1 UNTIL LAST DO 


BEGIN 


eBASE ELSE 


2CLASS « VARTID3 


IF GETCCI),CLASS=ENDCOM THEN I*GETCCI)eLINK 3 

IF TeGETCCI)LASTC#R THEN 

IF GETCCT)20 THEN 
BEGIN ReR&LAST£L3#33215I)81018333815) 3 


END3 
XIT3 


EQU 
END 


END EQUyV3 


IVCT)3 


a 
s 


LASTe#R,€3:15)3 


EQU™, "ITV 


TeReCi8:i5)3 


"sFALSE) & 


ALPHA PROCFDURE GETSPACEC(S)% VALUE S# ALPHA S3 


BEGIN LABFL RPLUS» FMINUS, 


LABEL 


NONE? 


REAL At 


BOOLFAN OWNIDS 


IF OWNID « S < 9 THEN S ¢ #83 
IF A « GETCGETSPACE+S) «< 0 THEN 


XITs 


IF A,CLASS GEQ 13 THEN FLAGC34) ELSE 
CASE AsCLASS OF 
BEGIN 
*CASE STATEMENT DESCRIPTOR* 
BEGIN 
PUTCSsAeARVARIDETOCLASS])3 
PUT(S4+2s(GETCS+#2) &C¢ 

THEN 1 ELSE 2 )£TOSIZEI))3 


IF A,SUBCLASS §$ 


% IN DATA STMTe 
GO TO DONES 


LOGTYPE 


ReR,£33215] 


THUS OWN 


; 


4104" 


40 18 


START OF SEGMENT 


01091000 T 0054 
01092000 T 0059 
01093000 T 0060 
01094000 T 0064 
01095000 T 0068 
01095500 T 0071 
01096000 T 0073 
01097000 T 0076 
01098000 T 0077 
01099000 T 0078 
01100000 T 0081 
01101000 T 0083 
01102000 T 0084 
01404000 T 0086 
01105000 T 0086 
011408000 T 0086 
01109000 T 0088 
01110000 T 0092 
01111000 T 0094 
011412000 T 0095 
01113000 T 0096 
01414000 T 0099 
01115000 T 07300 
01116000 T 0401 
01117000 T 0104 
01118000 T 0106 
01119000 T 0106 
01120000 T 0110 
01121000 T 0110 
01122000 T 0114 
01122500 T 0117 
01122550 T 0118 
01122600 T 0121 
01122650 T 0126 
01123000 T 0126 
01124000 T 0126 
01124010 T 0127 
01125000 T 0129 
132 LONGs NEXT SEG 
01126000 T 0368 
01127000 T 0368 
eK ke KK OK ke 
01128000 T 0000 
01129000 T 0000 
01129100 T 0000 
01129200 T 0000 
01130000 T 0002 
01130500 C 0005 
01131000 T 0008 
01132000 T 0009 
01133000 T 0009 
01134000 T 0009 
01135000 T 0012 
011436000 T 0015 


6 


44 


ot 


Cy =) 


Cl to 3G 


O 


) 


PRT¢521) 


- 
9 


TF BOOLFANCA,FORMAL) THEN RUMPLOCALS3 


BEGIN ALTYPEFIXED « 1% GO TO RPLUS FNDS 
G0 TO RPLUS$ 

60 TO RPLUS? 

GO TO HNONF$ 


BEGIN A*TYPEFIXED « 13 IF BOOLFANCASFORMAL) THEN GO TO FMyNUS 


FLSE gO TO RPLUS3 
ENDS 
BEGIN A‘TYPEFIXED « 13 GO TO RPLUS END? 
IF BOOLFANCA.FORMAL,)? THEN GO TO FMINUS ELSE Go To RPLUS3 
IF BOOLEANCAeFORMAL) THEN GO TO FMINUS ELSE GO TO RPLUS3 
GO TO RpLUS3 
GO TO RPLUS3 
END OF CASE STATEMENTS 


AsTYPEFIXED © 13 
IF BOOLFANCA,FORMAL) THEN 
GO TO FMINUSS ; 
1F BOOLFANCAeCE) OR ROOLEANCA.ZEQ) THEN 
BEGIN 
PUT(CS#A)3 
CALLFQUTIVCA,ADDReOWNIDeGETCS4+1)) 3 
GO To pONES 
END: 
AaTWOD ca REALCGET(S+2),5I1ZF > 1023)3 
FMYINUS: 
1F OwNtm THEN BEGIN BUMPPRT$ AyANDR*PRTS ENN ELSE 
BEGrN BUMPLOCALSS A,ADNR « LOCALS +1536 ENN 
TF A"CLASS = VARID THEN 1F A‘SUBCLASS 2 DOURTYPE THEN 
IF OWNTD THEN BUMPPRT E|,SE 
BUMP|,OCALS3 
GO Th XIT3 
RPLUS: 
BUMPPRT$ A,ADDRePRTS3 
X1T: 
PUTESs =A)? 
DONE$ 
END GETSPACES 


INTEGER STREAM PROCEDURE LBLSHFTCS)3 VALUE S$ 


LBLSHFT 


BEGIN 
LOCAL TS 
LABEL L3 
pr « LOC LBLSHFTs pS « 8 LyT "00 is 
ny * Dr = 6% St #L0C S3 Sy # SI + 23 
TALLY « 43 T « TALLY? 
S5¢T¢rre Sc="0" THEN BEGIN SyeSt4+13 JUMP OUT 1 TO L, END 
FLSE TALLY«O3 TeTALLY)3 
TF SC2"0" THEN DS*CHR FLSE IF SCs" ™ THEN SreSy41 
FLSE JUMP OUT3 Li: ) 3 


IF SC # " " THEN BEGIN DI « LOC LBLSHFT# DS « LIT +" 


END LBLSHFT3 
COMMENT EMITTERS AND CODE CONTROL’ 


01137000 T 0017 
01138000 T 0018 
01139000 T 0023 
01140000 T 0023 
01141000 T 0026 
01142000 T 0027 
01143000 T 0027 
01144000 T 0028 
01145000 T 0030 
0141446000 T 0034 
01447000 T 0032 
01448000 T 0034 
04149000 T 0037 
01450000 T 0039 
01151000 T 0039 
01152000 T 0040 
START OF SEGMENT #4 KR 
42 18 {4 LONG» NEXT SEG 
01153000 T 0040 
011454000 T 0042 
01155000 T 0043 
01156000 T 0044 
01157000 T 0045 
01158000 T 0046 
01159000 T 0047 
01160000 T 0050 
01461000 T 0050 
01162000 T 0050 
01163000 T 0054 
01163100 T 0055 
01164000 T 0061 
014165000 T 0067 
01165100 T 0070 
01166000 T 0075 
01167000 T 0081 
01168000 T 0082 
01169000 T 0083 
01170000 T 0088 
01171000 T 0089 
01172000 T 0090 
01173000 T 00914 
44 1S 94 LONGs NEXT SEG 
01174000 T 0368 
01175000 T 0368 
01176000 T 0368 
01177000 T 0368 
01178000 T 0368 
01179000 T 0369 
01180000 T 0370 
01181000 T 0370 
01182000 T 0373 
01483000 T 0374 
01183100 T 0376 
01184000 T 0379 
01485000 T 0380 
01186000 T 0381 


42 
41 


6 


(3 


\ 


Oy 


O- 3 


OQ 


ah 


PRT(522) 


PRT(523) 


STACK ¢F 42) 
STACK (CF 43) 
STACK ¢F44) 


STACK EF 45) 


PRT¢5924) 


= 
= 


STACK(F +2) 
STACK ¢F +3) 


ALPHA PROCEDURE B2D 
B2D « QO&Be 
$)3 


PROCEDURE NDEBUGC 


FORMAT FFCX35e*C33CM, )) eAbe Ee Ad se 2CX2A4) eXHs AG) 


UO us 


VALUE S? 


UE Bs RE 
&Bf39'4923)8BL£ 333392318 BL 27% 368313 
RINTS OUT DEBUG CODE 


AL _B3 


® IF S<O THEN S IS FIELN TYPE OPERATOR 


REAL SsCONF3 


% SEARCHS WOP TO FrNp CODE FOR §S 


DEBUG 
VALUE S# REAL S3 
BEGIN 
FF 
ALPHA CODF»eMNM,SYL3 
= CODE 
= MNM 
= SYL 
REAL T3 
= T 
PROCEDURE SFARCHC(CCODEsS)# 
SEARCH 
BEGrN 
REA, Nol? 
= N 
= | 
LABFL L3 
N «© 643 


Li 
END § 


BEGIN 


END 
BEGYN 


BEGrN 


END 
BEGIN 


FOR 1 « 66 STEP IF WoPrtl] «< S THEN N ELSE =N 
WHILE N © N DIV 2 
IF WOPEI] #S THEN GO To L3 
2 NOT FOUND 
CODE « WOPELI+11]3 


I « 03 


EARCH# 


te S < 0 THEN 
% FIELD TYPE OPERATOR 


SY. « S3 


2 1 DO 


MNM «© B2D¢S,£36%61)3 


IF ¢S « §,£42%61) 


IF S 
IF S 
Ir § 


aon 


FLSE 


tr ¢T « S,¢462)) # 4 THEN 


SYL « S3 


= 37 THEN CODE « "7S0 " ELSE 
A5 THEN CONE « "DIA " ELSE 
49 THEN COneE « "DIB " ELSE 
53 THEN COnpe « "TRA 3 


MNM « B20¢S,£36%101)3 
IF T = 0 THEN CODE «& “LyTc 

ELSE IF T =2 THEN CODE ¢« “oPpc"™ 
FLSE CODE «+ "DESC"? 


ELSE 


% SEARCH WOP FOR OPERATOR NAME 


SYL «S3 
MNM « * 


Ws 


SFARCHCCONE?S.[(36810])3 


START OF SEGMENT 
START OF SEGMENT 


44 18 


START OF SEGMENT 


45 18 


011487000 T 0381 
01488000 T 0381 
01189000 T 0389 
01190000 T 0389 
01491000 T 0389 
01492000 T 0389 

4k OR ROR GO 

eke ok OK aK Kok 

18 LONGe NEXT SEG 
041193000 T 0000 
04194000 T 0000 
01195000 T 0000 
01196000 T 0000 
01197000 T 00090 

BOR IK OK 
01198000 T 0000 
01199000 T 0000 
01200000 T 0000 
01201000 T 0005 
01202000 T 0009 
01203000 T OO011 
01704000 T 0011 
014205000 T 0013 

16 LONG» NEXT SEG 
01206000 T 0000 
01207000 T 0000 
01208000 T Q001 
01209000 T 0002 
01210000 T 0003 
01211000 T 0006 
01212000 T OO11 
01213000 T oO0ts 
01214000 T 0019 
01215000 T 0019 
01216000 T 0019 
014217000 T 0021 
012718000 T 0022 
012719000 T 0023 
04220000 T 0024 
04221000 T 0025 
01222000 T 0027 
04223000 T O03} 
01224000 T 0034 
01225000 T 0034 
01226000 T 0034 
01227000 T 0037 
01228000 T 0037 
01229000 T 0038 


43 
44 


43 


45 


43 


O oO 


2. 


C 


PRT(¢525) 


J 


STACK(F42) 


PRT(526) 


PRT¢527) 


PRT¢530) 


PRT¢(531) 


PRT(532) 


PRT¢533) 


ui 


i 


END: 
ENDS 
WRITALISTCFFe6sIF ADRENMEBUGADR THEN 1 ELSE "1eB2DCADR,(36210]), 
BODCADR. £4632) ) sCODE*+MNMsB2DCSYL) 50,0) 3 
TF DEBUGADR<ADR THEN OFBUGADR«ADR 3 
END DEBUG: 


Pee DEBUGWORDCN)$ VALUE N$ REAL N# SPRINTS OUT C+ CONSTANTS 
EGIN 
STREAM PROCEDURE WB2DCFeT)3 


WB2D 

BEGIN 
DI] « T3 
Dile#DI+35% DSefOLIT"CONSTANT " § 
Sf « F$ 
16(DS * 3 RESET? 3¢IF SB THEN DS « SET 

ELSE DS « RESET3 
SKIP §$B)33 
END wB2D3 


ARRAY ALO814]3 FORMAT FCX63e"( DEC *sBe 9") 3 


u 
> 


_ WRETECAC#IsFa2N)% WB2DCNSAD 3 
*LISTs LABEL, OR SEGMENT DESCRIPTOR* 
WRITAROWC15—9A) 3 
END DEBUGWORDS 
. REAL PRoCEDURE GIT¢Z)3 % RETURNS OPERATOR IN SYLLABLE Z 
GT! 
VALUE Z3$ REAL 23 
BEGIN 
INTEGER STREAM PROCEQURE GTCSeSKP)3 VALUE SKP3 


qT 
BEGIN 
St « S3 SKPCS] « SI + 233 
DI « LOC GT’ DI © DI + 63 DS « 2 CHR} 
END GT 
GIT © GTCFDOCEZ.£368315Z2,063987I19Z2,C4682))3 
END GIT3 


REAL STREAM PROCEDURE SPCLBIN2DFCC(NDS 
SPCLBIN2DEC | 
BEGrN LOCAL LS LABEL Bi 3 
DretOc LS SpeLOC N$ DSe8DFC3 STeLOC Le TALLY«8 3 
Bit TF Sc=z"O" THEN BEGIN TALLY*TALLY+633 SyTeSI413 GO B1 END 3 
DreLOc SPCLBIN2DEC? DileDI+423 DSe6LIT™ "3 DTeDI[*63 Ne TALLY? DS*N CHR3 
END OF SPCLBYINODEC 3 
STREAM PROCEDURE PACKC(TsF»SKP)3 VALUE SKPoF3 
PACK 


VALUE N 3 


BEGIN % PACKS OPERATORS INTo FDOC 
St « LOC Fs SI © SJ] + 63DI «© T3 SKPCDI «+ DI + 293 
DS « 2 CHR3 

END PACKS 


43 1S 


START OF SEGMENT 


START OF SFGMENT 


47 18 


46 1S 


START OF SEGMENT 


48 1S 


01230000 T 0040 
01231000 T 0040 
01232000 T 0040 
01233000 T 0044 
01233100 T 0048 
01234000 T 0050 
54 LONGe NEXT SEG 
012935000 T 0389 
01236000 T 0389 
01237000 T 0389 
A aOR Ok 
01238000 T 0000 
01239000 T 0000 
01240000 T 0000 
01241000 T 0002 
01242000 T 0002 
012943000 T 0003 
01244000 T 0004 
01247000 T 0O005 
01248000 T 0005 
A oR RIOR ak 
7 LONGs NEXT SEG 
01249000 T 0007 
01250000 T 0O017 
01251000 T 0019 
23 LONGse NEXT SEG 
01252000 T 0389 
01253000 T 0389 
01254000 T 0389 
01255000 T 0389 
2 OR OR 
01256000 T 0000 
01257000 T 0000 
01258000 T 0001 
01259000 T 0002 
01260000 T 0003 
01261000 T 0008 
11 LONGs NEXT SEG 
01261100 T 0389 
01261110 T 0389 
01261120 T 0390 
01261130 T 0391 
01261140 T 0393 
01261150 T 0396 
0142962000 T 0397 
01263000 T 0397 
01264000 T 0398 
01265000 T 0400 
01266000 T 0400 


6 


46 


47 


46 


48 


O 


oO <r © 


> 3. sr qe. - © 


CO) 


() 


QO 


© 


Ce 3G 


PROCEDURE EMITOCN)$ VALUE N3 REAL NG- 01267000 T 0400 
BEGYN 01268000 T 0400 
BUMPADR3 01269000 T 0400 
PACKCEDOCLEDOCT ] +» (Nei &NC36238210])»ADR C4622) 93 01270000 T 0403 
IF CODETOG THEN DEBUGCN)? 01271000 T 0409 
END EMITOS 01272000 T 0410 
PROCEDURE FMITNCP)$ VALUE P$ REAL P3 01273000 T 0412 
BEGIN LABEL XIT$3 01274000 T 0412 
START OF SEGMENT 2x2 40K ek 49 
ALPHA S3 01275000 T 0000 
STACK¢F42) = 
IF S.+ GETCP) > 0 THEN S « GETCGETSPACECP))3 01276000 T 0000 
IF S.CLASS = VARID THEN IF BOOLEANCS,CE) THEN 01277000 T 0004 
Ip BOOLEANCS.TWOD) THEN 012778000 T 0006 
BrGIN ; 01279000 T 0007 
EMITL¢ (TeGETCP+2),BaSF),.03327])93 01280000 T 0008 
EMITDESCLYT¢CS, ADDR) 014281000 T 00114 
EMITOCLOD)? 01782000 T 0043 
EMITL¢T.C4038))3 012783000 T 0043 
FEMITOCCDC)3 01284000 T 0015 
Go To XIT; 01285000 T 0015 
END ELSE 01286000 T 0016 
EMI TNUMCGET(P+2),BASE) 01287000 T 0016 
E,.SE 01288000 T 0019 
IF NOT BOOLEANCS,FORMAL) THEN IF NOT DESCREQ@ THEN 01289000 T 0019 
BEGIN 012990000 T 0021 
EMITLOS*S,ADDR)3 01291000 T 0022 
IF S,£37%2] = 1 THEN REFERENCING 2ND HALF OF PRT3 01292000 T 0024 
BEGIN 01293000 T 0025 
IF ADR 2 4087 THEN 01294000 T 0025 
BEGIN ADR © ADR4+13 SEGOVF END 01295000 T 0026 
EMITOCXRT)3 01296000 T 0028 
ENDS 01297000 T 0029 
GO TO XIT3 01298000 T 0029 
FNDS 01299000 T 0031 
EMITNESCLITCS, ADDR) 01300000 T 0034 
XIT$ 01301000 T 0032 
END EMITN3 01302000 T 0033 
36 LONG» NEXT SEG 
PROCEDURE FMITV¢P)3 VALUE P3$ ALPHA P3 01303000 T 0412 
BEGIN 01304000 T 0412: 
ALPHA S3 01305000 T 0412 
START OF SEGMENT ok kde Rok tok & 
STACKCF #2) 
IF S « GETCP) > 0 THEN S « GET¢GETSPACE(P))3 01306000 T 0000 
IF S,CLASS = VARIN THEN 01307000 T 0004 
IF BOOLEANCS,CE) THEN 01308000 T 0005 
IF BOOLEANCS,TWOD) THEN 01309000 T 0006 
BEGIN 01310000 T 0007 
EMITLE (CT*GETCP4+2)eBASEI¢L3337])93 01311000 T 0008 
EMITDESCLITCS,.ADDRD3 01312000 T 0014 
EMITOCLOD)3 01313000 T 0013 
IF S,SUBCLASS > mOUBTYPE THEN 01314000 T 0013 
BEGIN 01315000 T 0015 
FMITOCDUP); 01316000 T 0015 
EMITPAIR¢CT,f40%6Jat5 COC) 01317000 T 0016 


OC 


Ce ©) We OOF “Or WO 4. 3 


Om 
\ 
f 

— 


C) 


C) 


Cs 


() () 


C) 


© 


FMYTOCXCH)S ~ 01318000 T 0018 

FMITPAIR¢(T,«£40%8], COC)$ 01319000 T 0019 

END ELSE EMYTPAIRCT, £4038)» cO0C)} 01320000 T 0020 

END 01321000 T 0022 

ELSE 01322000 T 0022 

IF S,SUBCLASS 2 DOUBTYPE THEN 01323000 T 0022 

BEGIN | 01324000 T 0024 

EMITNUMC CTeGETCP+2),BASE) +41 )3 01325000 T 0024 

EMITOPDCLITCSe ADDR 01326000 T 0028 

EMITNUM(T)3 01327000 T 0029 

EMITOPDCLITCS,ADDR) 014328000 T 0030 

END ELSE 01329000 T 0034 

BEGIN 01330000 T 0031 

EMITNUMCGETC(P+2),BASE)3 01331000 T 0032 

EMITOPDCLIT¢CS. ADDR) 01332000 T 0034 

END 01333000 T 0035 

ELSE 01334000 T 0035 

If S,SUBCLASS 2 DOUBTYPF THEN 01335000 T 0035 

Ip BOOLEANCS, FORMAL) THEN 01336000 T 0037 

BEGIN 01337000 T 0038 

EMITDESCLITCS.ADDR)? 01338000 T 0039 

EMITOCDUP)3 01339000 T 0040 

EMITPAYRC4s XCH)3 01340000 T 0044 

EMI TOCINX)3 01341000 T 0042 

EMITOCLOD)3 01342000 T 0043 

EMITOCXCH)$ 01343000 T 0043 

EMrTOCLOD)3 01344000 T 0044 

END ELSE 01345000 T 0045 

BFGIN 01346000 T 0045 

EMITOPDCLIT¢CS,ADDR+41)3 01347000 T 0045 

EMITOPDCLIT¢S,ADDR)} 01348000 T 0047 

END 01349000 T 0048 

E).SE EMITOPDCLIT¢S»ADDR) 01350000 T 0048 

ELSE EMITOPOCLITCS,ADDR)} 01351000 T 0049 

END EMITV3 01352000 T 0052 
50 1S 55 LONGs NEXT SEG 6 

PROCEDURE EMITLON)$ VALUE N$ REAL N3 01353000 T 0412 

BEGIN 01354000 T 0412 

BUMP ADR? 01355000 T 0412 

PACKCEDOCLEDOCI J > CN«O8&NE 362138210))sADR«L4622))3 01356000 T 0414 

IF CONETOG THEN DEBUGC(N)? 01357000 T 0420 

END EMITL3 01358000 T 0421 

PROCEDURE FMITOCRe OP)$ VALUE R, OP$ REAL R, OP} 01359000 T 0423 

BEGIN ~ 01360000 T 0423 

BUMP ADR? 01361000 T 0423 

PACKCENOCLEDOCI 3+ CR * OP & RLE3684286}),5 ADR, £4632)1)3 01362000 T 0425 

IF CODETOG THEN DEBUGC™R) 01363000 T 0431 

END EMITDS 01364000 T 0432 

; PROCEDURE FMITDDTCReA»X)# VALUE BeAeX? INTEGER BeAeX 3 01364010 T 0434 

PRT¢535) = EMyTopT 

BEGrN % DOES DIB Be DIA A, TRB X$ HANDLES frBtatXx], 01364020 T 0434 

EMITD¢BeB MOD 6+B DIV 6x8,D1B)3 EMITD¢AcA MOD 6+A DIV 6xBsDIAD 3 04364030 T 0434 

EMITD¢X#X»eTRBD 3 01364035 T O44} 

END OF EMITODT 3 01364040 T 0442 

PROCEDURE EMITPAIR(L» OP)? VALUE Le OPS INTEGER Le OP3 01365000 T 0442 

BEGIN 01366000 T 0442 

EMITL CLS 01367000 T 0442 


Cy Sy 0) 


O> 2: «6 


Ga Or xO) 


© 


a, 


PRT(536) = 


STACK(F +2) 
STACK(F 43) 
STACKCF4+4) 


IF 


BEG 


.€37!2) = 1 THEN 


IF ADR 2 4087 THEN 


BFGIN ADR «© ADR+13 SEGOVF END: 
EMITOCXRT)3 
END3 


EMITOCOP)}3 
END EMITPATR? 
PROCEDURE ANJUST3 


WHILE ADR, £4632) 43 nO EMITOCNOP)S 


PROCEDURE EMITNUMECN)$ VALUE N3 REAL N3 


BEGrN 


BEGIN 


DFFINE CPLUS = 1792#; 
1F N.r3%67 =O AND ABS(N) < 1024 THEN 


EMITLON)3 
IF N < 0 THEN EMITOCSSN)3 


END ELSE 


BEGIN 


IF ADR 2 4079 THEN 


END$ 


BEGIN ADR « ADR+{43 SEGOVF END; 

EMITOPDCLITCCPLUS + (CADR+4),£46311] + 193 

EMITL¢2)3 

EMITOCGFW)3 

ADJUST? 

BUMPADR3 

PACKCEDOCLEDOCI IJ aN.Citt1)]°ADR,£46:2))3 

BUMPADR3 

PACKCENOCFENOCI IN, (12212],ADR,£4622])3 

BUMPADR$S — 

PACKCEDOCFEDOCTIeN, £24212], ADR,£4622})3 

BUMPADR? 

PACKCEDOCFEDOCT I] »#N, £36312) 2ADR,L46521)93 

1F N,£368421=49 THEN 29% If cCmREL CONSTANT LOOKS LYKE AN XRT 
EMITOCNOP) 3 4%% THEN INSURE AGAINST P=BYT INTERRUPT, 
tF COMETOG THEN DEBUGWORDCN)3 


END EMITNUMS 


EMI TNUM2 


Mogg 


—~ © 


BEGIN 
Boo.EAN B3 


PROCEDURE EMITNUMOCHIoLOJSVALUE HIeL03 REAL HIeLO3 


REAL lens 


LABFL Z2eX 3 


DEFINE CPLUS = 179283 


IF wr=0 OR LO=0 THEN BEGIN FMITNUMCLO)3 EMITNUMCHT)3 GO Z END 3 


ADJUSTS 


IF aDR 2 4077 THEN 


Ki 


BEGIN ADReADR4+13 SEGOVES ADRe#t END 3 
EMYTOPNCLITECPLUS + 2)3 FMITOPDCLITCCPLUS + 123 
FMITPAIR(3eGFHWDF 

FOR 1 «+ O STEP 1 UNTTL 3 DO 


01368000 
01369000 


01370000 
01371000 
01372000 
01373000 
01374000 
01375000 
01376000 
01377000 
01378000 
01379000 
01380000 


START OF SFGMENT 


01381000 
01382000 
01383000 
01384000 
01385000 
01386000 
01387000 
01388000 
01389000 
01390000 
01391000 
01392000 
01393000 
01394000 
04395000 
01396000 
01397000 
01398000 
01399000 
01400000 
01400400 
01400600 
01401000 
01402000 
01403000 


51 LONG 


01404000 


01405000 
01406000 


START OF SEGMENT 


01407000 
01408000 
01408100 
01409000 
01410000 
01411000 
01412000 
01413000 
01415000 


Ae AHHH AANA HHH AHA A HA KR ss A A 


* 


AAA Haa a 


0443 
0445 


0445 
0446 
0448 
0449 
O449 
0450 
0452 
0452 
0455 
0455 
0455 
KO KK a x 
0000 
0002 
0003 
0003 
0005 
0005 
0008 
0008 
0011 
0013 
0014 
0015 
0015 
0018 
0022 
0025 
0029 
0032 
0036 
0039 
0043 
0045 
0046 
0047 
0047 
NEXT SEG 
0455 


0455 


0455 
Rk 


0000 
0000 
0000 
0004 
0004 
0005 
0008 
0011 
0012 


a1 


6 


32 


() 


PRT ¢537) 


PRT(540) 


- 
ad 


*CASE ST 


73 


PRO 
EMITL INK 


PRT(541) = FF 


PRT(542) 


C7 


PRO 
EMITSTOR 
BEG 


STACKCF+2) 3 E 
STACK(F+3) 


= VT 


BEGrN 
CASE |] OF BEGIN 


ATEMFNT DESCRIPTOR* 
Nw H¥ef 294178 
N « Hlel12%42]3 
N © H1ef24342173 
N «© H1ef36242)3 
END CASE$ 


BUMPADR? PACKCEDOCLEDOCI J «Ns ADRel4682])3 
END; — 
IF CODETOG THEN DEBUGWORDCHI)3 

1F NOT B THEN BEGIN BeTRUE?: HI*LOs GO TO X3 ENDS 

IF N=49 THEN 22% IF c™REL CONSTANT LOOKS LIKE AN XRT 
EMITOCNOP) } 22% THEN INSURE AGAINST P#*BIT INTERRUPT, 


END EMTTNUM23 
CEDURE FMITLINKEN)S VALUE NB REAL N3 % EMITS LINKS 


BEGIN 


FORMAT FFCX359¥*¥C 336%") eAdeME Ate” LINK X10eAdsteenaua) 3 


BUMPADRS 
PACKCEDOCFEDOCT ]»>N»ADR,£46:22))3 
IF CODETOG THEN 
WRITALISTCFFedelF ADRSDEBUGADR THEN 4 ELSE —12eB2D(CADR.L36:10])> 
BPDCADR.£4632))»B2D0N) 2050090) 3 
IF DEBUGADR<ADR THEN DEBUGADR+ADR 3 
END EMITLINKS 


CEDURE EMITSTOREC IX» EXP)$ VALUE IXs EXP3 REAL IX» EXP3 
E 

IN 

REAL Es VT3 


P * REALCERRORTOG)} 
FRRORTOG « FALSF3 
E © RETCGETSPACECIX))3 
1F NoT¢ ¢VT « E.SUBCLASS) s LOGTYPE ESV FXP & LOGTYPE) OR 
NoT¢vT = COMPTYPE E@y EXP = COMPTYPE) THEN 
BEGIN XTA « GETCIX#19? FLAGC86) END} 
IF E:CLASS = VARID THEN 
BEGIn 
IF BOOLEANCE,FORMAL) OR BoOLEANCE.+CE) THEN 
BEGIN 
IF VT $ LOGTYPE THEN 
BEGIN 
IF VT = INTYPE AND EXP 2 REALTYPE THEN EMITPAIRC 14s IDV)3 
EMITNCIX)3 
EMITOCIF VT = INTYPE THEN ISD ELSE STD)3 


014136000 T 0016 
01417000 T 00146 
01418000 T 0016 
01419000 T 0018 
01420000 T 0020 
01421000 T 0022 
01422000 T 0023 

START OF SEGMENT kee aK & 

53 18 5 LONGs NEXT SEG 
01423000 T 0024 
01424000 T 0030 
01425000 T 0033 
01426000 T 0034 
014426400 T 0039 
01426600 T 0039 
01426650 T 004] 
01427000 T 0044 

52 18 44 LONGs NEXT SEG 
01428000 T 0455 
01429000 T 0455 
01430000 T 0455 


START OF SEGMENT x % KR Re 
START OF SEGMENT 2&4 4k RK OR 


55 158 


54 1S 


16 LONG 


01431000 
01432000 
01433000 
01434000 
01435000 
01435010 
01436000 


19 LONG 


01437000 


01438000 
01439000 


START OF SEGMENT 


04440000 
01441000 
01442000 
01443000 
01444000 
04445000 
01446000 
01447000 
01448000 
01449000 
01450000 
01451000 
01452000 
01453000 
01454000 


s 
T 
T 
T 
T 
T 
T 
T 
’ 
T 


T 
T 


NEXT SEG. 


0000 
0002 
0006 
0006 
0012 
0015 
0017 
NEXT SEG 
0455 


0455 
0455 


Pere. ss 2. 2 


AA AHHH HAM HH 


0000 
0000 
0001 
0003 
0006 
0008 
0011 
0012 
0013 
0015 
0015 
0016 
0016 
0020 
0020 


53 
52 


55 


54 


56 


o 


“a, 


OQ 


C) 


IF EXP 2 DOUBTYPE THEN EMITOCDEL)D? 
END ELSE 


BEGIN 
EMITNCTX)3 
FMITPATRCJUNKe STN)3 
EMITOCSTD)3 
IF EXP «< DOUBTYPE THEN FMITLCO)$ 
EMITLC1)3 
EMITPATREJUNKs LOD)3 
EMITOCTNX)3 
EMITOCSTD)3 
END 
END FLSE 
BrGtN 
tF VT = INTYPE AND EXP 2 REALTYPE THEN EMITPATR¢ 4s IDV) 
EMITPAIRCE,ADDRe IF VT = INTYPE THEN ISD ELSE STD)3 
IF VT € LoGTYPE THEN 
IF EXP 2 DOUBTYPE THEN EMITOCDEL) ELSE ELSE 
REGIN 
IF EXP « DOUBTYPE THEN EMITL(O)3 
EMITPAIRCE,ADDR¥15 STD)} 


END FLSE 
IF ESCLASS = ARRAYID THEN 
BEGIN 
Ip VT ¢ LOGTYPE THEN 
BEGIN 
IF VT = INTYPE AND EXP 2 RFALTYPE THEN EMITPAIRC1* [DV)3 
tf EXP > pOUBTYPE THEN 
BEGIN 
EMI TOCXCH)3 
EMITOCNEL)3 
END} 
EMITOCXCH)3 
EMITOcIF VT = INTYPE THEN 1SD ELSE STD)3 
ENO ELSE 
BEGIN 
IF EXP 2 DOUBTYPE THEN 
BEGIN 
FMITPAIRCJUNKe STD)3 
EMITOCXCH)3 
EMITOPDCLITCJUNK)3 
EMITOCXCH)3 
EMITPATRCJUNK» STN)3 
EMITOCSTD)3 
EMITLO1)3 
EMITPATRCJUNK»s LOD)3 
EMITOCINX)3 
EMTTOCSTD)3 
END ELSE 
BEGIN 
EMITOCXCH)3 
EMITPAYREJUNK»s STN)3 
EMITOCSTD)3 
EMITLCO)3 
EMITLC1)3 


01455000 
01456000 
01457000 
01458000 
01459000 
01460000 
01461000 
01462000 
01463000 
01464000 
01465000 
01466000 
01467000 
01468000 
01469000 
01470000 
01471000 
01472000 
01473000 
01474000 
01475000 
01476000 
01477000 
01478000 
01479000 
01460000 
01481000 
01482000 
01483000 
01484000 
01485000 
01486000 
01487000 
01488000 
01489000 
01490000 
01491000 
01492000 
01493000 
01494000 
01495000 
01496000 
01497000 
01498000 
01499000 
01500000 
01501000 
01502000 
01503000 
01504000 
01505000 
01506000 
01507000 
01508000 
01509000 
01510000 
01511000 


A AHHH HMH HAMAR H HHA HAAR FH HAHA AH st Ht st tt tt a A A Ht 4 1-4 


0023 
0025 


0025 
0026 
0026 
0027 
0028 
0030 
0031 
0032 
0033 
0033 
0033 
0033 
0034 
0037 
0041 
0041 
0044 
0045 
0047 
0049 
0049 
0049 
0049 
0051 
0051 
0052 
0052 
0056 
0056 
0057 
0058 
0058 
0058 
0059 
0062 
0062 
0062 
0063 
0064 
0065 
0065 
0066 
0067 
0068 
0069 
0069 
0070 
0071 
0072 
0072 
0072 
0073 
0074 
0075 
0076 


C3 


EMITPATRCJUNKs LOn)3 
EMITOCTNX)3 
EMITOCSTD)3 
END 
END 
END FLSE BEGIN XTA * GETCIX#1)$ FLAGC49) ENDS 
ERRORTOG « ERRORTOG OR BOOLEANCP)3 
END EMITSTORES 


PROCEDURE FMITBCAeC)# VALUF A,C3 REAL AS BOOLEAN C3 


BEGIN COMMFNT GENFRATES LtTC AND BRANCH FROM CURRENT ADR TO ADDRESS Aq 


1F THE ROOLEAN C 1S TRUE THEN THE. BRANCH IS CONDITIONAL, 
TRUE 1F THE BRANCH IS BACKWARDS3 
BOOLEAN BEOREF? 


STACK¢F 42) = BEOREF 
REAL SEG3 
STACK¢(F 43) = SEG 
IF ADR 2 4086 THEN 
BrFGIN ADR « ADR+13 SEGOVF END; 

IF A < O THEN ; 

BEGrN 
TF BRANCHX?LBRANCH THEN FATAL¢123) 3 
BRANCHX « BRANCHES(LAX«BRANCHXI]3 
BRANCHES( AX] « @¢CADR+4)2 
EMITLINKCO)S 
EMITOCIF c THEN BFC ELSE BFW)3 
EMITOCNOP)} 

i END ELSE 

BEGIN 
SEG © A sSEGNO} 
A © AyLINK$ 
REOREF « ADR > A; 
tF Aef4622) =0 THEN 

BEGIN 
IF SEG > 0 AND SEG # NSEG THEN 

EMITOPDCLITCPRGDESCBLDRC2> O» A,L36210]» SEG)? 

FLSE 
EMITLCABSCCADR+2),036910] = A,£36240]))3 
IF BEOREF THEN 
EMITOC IF C THEN GBC ELSE GBW) ELSE 
EMITO¢ IF C THEN GFC ELSE aFW)? 

END ELSE 

BEGYN 
EMITLCABScADR + 3 = ADD} 
1F BEOREF THEN 
EMITOCIF C THEN BBC ELSE BBW) ELSE 
EMITOCIF C THEN BFC ELSE BFW) 


END; 
END} 
END EMITB3 
PROCEDURE EMITNESCLITCN)S VALUE NS REAL NS 
BEGIN 
IF N,C37:2) = 1 THEN 
BEGIN 


IF ADR > 4087 THEN 


56 18 


START OF SEGMENT 


57 1S 


01512000 
01513000 
01514000 
91515000 
01516000 
01517000 
01518000 
01519000 
86 LONG 
01520000 
01521000 
01522000 
01523000 
01524000 


AAAs 


e444 4-4 


01525000 


01526000 
01527000 
01528000 
01529000 
01530000 
01531000 
01532000 
01533000 
01534000 
01534100 
01535000 
01536000 
01537000 
01538000 
01539000 
01540000 
01541000 
01542000 
01543000 
01544000 
01545000 
01546000 
01547000 
01548000 
014549000 
01550000 
01551000 
01552000 
01553000 
01554000 
01555000 
01556000 
01557000 

45 LONG 
01558000 
01559000 
01560000 
01561000 
01562000 


AA AHA HAHAHA HAHAHAHAHAHA HA At tt 


0076 
0077 
0078 
0079 
0079 
0079 
0082 
0083 
NEXT SEG 
0455 
0455 
0455 
0455 
0455 


eres. ees 


0000 


0000 
0000 
0003 
0003 
0004 
0006 
0007 
0009 
0010 
0012 
0013 
0013 
0015 
0016 
0017 
0018 
0020 
0020 
0022 
0024 
0025 
0028 
0029 
0034 
0034 
0034 
0035 
0037 
0037 
0040 
0042 
0042 
0042 
NEXT SEG 
0455 
0455 
0455 
0457 
0457 


6 


57 


6 


C) 


C) 


BEGIN ADR « ADR#13 SEGOVF END; 01563000 T 0458 
EMITOCXRT)3 01564000 T 0460 
END3 01565000 Tt 0464 
BUMPADR3 01566000 T 0461 
PACKCENOCrFENOCI J] eC N©38&NC36238210))sADR,£4632])3 01567000 T 0464 
IF CODETOG THEN DEBUGC(N): 01568000 T 0469 
FND EMITDESCLITS 01569000 T 0471 
PROCEDURE FMITOPDCLITCN)3 VALUE N3 REAL NB 01570000 T 0474 
BEGIN. 01571000 Tt 0474 
tre N C3782] = 1 THeNn 01572000 T 0474 
BFGIN 01573000 T 0475 
IF ADR 2 4087 THEN 01574000 T 0475 
BEGIN ADR « ADR41i SEGOVF END3 01575000 T 0476 
EMITOCXRT)3 01576000 T 0478 
ENDS 01577000 T 0479 
BUMPADR3 01578000 T 0479 
PACKCEDOCLEDOCI] + ¢Ne28nl 36238910) »ADReL4622)93 01579000 T 0482 
IF CODETOG THEN DEBUGC(N)? 01580000 T 0487 
END EMITOPDCLIT3 01581000 T 0489 
PROCEDURE EMITLABELDESCCN)3 VALUE N3 ALPHA N3 01582000 T 0492 
PRT(543) FMITLABELDES¢ 
BEGIN 01583000 T 0492 
LABEL X1T3 01584000 T 0492 
START OF SEGMENT exe Ree K EE 
REAL TeBeCoN 3 01585000 T 0000 
STACK¢(F42) = T 
STACK¢F43) = B 
STACK¢F44) = C 
STACKEF45) = D 
IF N « LBLSHFT¢CXTAeN) = 0 OR N = BLANKS THEN 01586000 T 0000 
BEGIN FLAGC135)3 GO TO x1T END 01587000 T 0004 
IF T « SEARCHCN) = O THEN 01588000 T 0005 
T + ENTERCO & LABELIDFTOCLASS], N) ELSE 01588100 T 0007 
If GET¢T), CLASS # LABELYD THEN 01588200 T 0010 
BEGIN FLAG(144)3 GO To XIT END} 01588300 T 0012 
IF XREF THEN ENTERXCN*# O&LABELIDETOCLASSI)3 01588400 T 0014 
IF B «¢CeGET(T#9)),BASE =0 THEN 01589000 T 0017 
IF (NeGETCT)),SEGNO#O THEN CeBASE*BepRGDESCBLDR(2202#DeADDR DIV a> 01589010 T 0020 
D.SEGNO) ELSE 01589020 T 0026 
BEGIN BUMPPRT$ C.BASE*RePRTS END$ PUTC(T+20C)3 01590000 T 0028 
EMITIL.CB} EMITOCMKS)$ 01591000 T 0036 
EMITDESCLITC1536)3 % F+O0 01592000 T 0037 
EMITOPDCLITC1537)3 %¥ Fel 01593000 T 0038 
EMITVCNEEDC™, LABEL» INTRFUNID))3 01594000 T 0039 
XIT8 01595000 T 0040 
END EMITLABELDFSC3 01596000 T 0041 
47 LONG» NEXT SEG 
COMMENT TRACEBACKs OFLOWHANGERSs AND PRTSAVFR ARE 01597000 T 0492 
PROCEDURES USED TO ACCUMULATE FORMAT AND NAMELYST ARRAYS$ 01598000 T 0492 
PROCEDURE TRACEBACKC(CMsDEX*sPRT)$ VALUE MeDEXe PRT? INTEGER Ms DEXePRT?3 01599000 T 0492 
PRT¢544) TRACEBACK 
BEGIN INTEGER Yous REAL C3 01600000 T 0490 
; . START OF SEGMENT #3 KR RK OK 
STACKeF+2) = 
STACK¢F43) = 
STACK¢(F a4) = 
01601000 T 0000 


IF ¢c#GET¢mMt2)), BASE # 0 THEN 


‘oe 


4 
Need 


~~ 


BEGIn I « ADR? ADR « C,BASE3 
No BEGIN gy « GITCADR)? 
ADR « ADR ™ 43 
EMITLCDEX)3 
EMITPAIRCPRT*LOD)3 
END UNTIL ADR « J = O3 
ADR « {3 
END3 
INFOCMstRoMeICJ,ADDR © PRT3 PUTECM+2,08DEXETOBASE])3 
FND TRACERACK} 
PROCEDURE OFLOWHANGERSCI)3 


VALUE 13 INTFGFR V3 


PRT¢(545) = OFLOWHANGERS 


STACK(F42) = J 


BEGIN INTEGER J3 LABEL XItT3 


FOR J » 1 STEP 41 UNTIL MAXNBHANG DO 
1F FNNHANGrFJ] = 0 THEN % MaKe AN ENTRY 
BEGIN FNNHANGEJ] « 73 
PuT¢er+2eJ23 
GO TO Xq{TF 
ENDS | 
XTA «© MAXNBHANG? % IF We REACH HERE WERE HURTIN 
FLAGC94 93 
XIT3 
END OFLOWHANGERSS$ 


PROCEDURE PRTSAVERCM»sSZeARY)3 VALUE M#SZ3 


PRT(546) = PRTSAVER 


STACK(F#2) = | 


INTEGER MeSZ# ARRAY ARYCO]3 
BEGIN INTEGER 13 REAL INFAS 


STACK(F4+3) = INFA 


LABEL SyOWsXIT3 

TF CINFA*GFTCM)) < O THEN 

BEGIN XTA « GET(M#4)3 
FLAGC20)%8 GO TO X{T3 


% PREVIOUSLY DFFINED 


ENDS 

Foy « NFA 

SHOWE 

BEGIN + « PRGDESCBLOR¢1sI»O+NXAVIL « NXAVIL + 193 
WRITEDATACSZ,NXAVILSARY)S 
FNNHANG(GET¢(M42),S1ZE] « 03 

END ELSE& % ADD THIS ARRAY TO HOLD 


BEGIN IF FNNPRT=0 THEN BEGIN BUMPPRT$ FNNPRT«+PRTS END3 
If FNNINDEX + SZ > DUMPSIZE THEN &% ARRAY WONT FIT 
If SZ > DUMPSIZE THEN % ARRAY WILL NEVER FIT 
BEGIN BUMPPRT$3FNNHANGLGETCM+2)eSIZEJ©o3 TRACEBACK(Ms0el*PRTS)3 


GO TO SHOW; 
EnD ELSE % DUMP OUT CURRENT HOLDINGS 


BFGIN FNNPRT « PRGDESCBLDORCLeFNNPRTsOseNXAVIL * NXAVIL + 493 


WRITEDATACFNNINDEX®NXAVILeFNNHOLD D3 
FNNINDEX « 03 BUMPPRT? FNNPRT ¢PRTS3 
END} 
FNNHANGEGETCM + 2)6S1ZE)] +03 
TRACE BACKCMeFNNINDEXeFNNPRT)D3 


eADDR # O THEN % PRT ASSIGNED AT OFLOW TIME 


59 IS 


START OF 


60 IS 


START OF 


01602000 T 0003 
01603000 T 0005 
01604000 T 0007 
01605000 T 0008 
01606000 T 0009 
01607000 T 0010 
01608000 T 0012 
01609000 T 0012 
01610000 T 0012 
01611000 T 0019 
22 LONGs NEXT SEG 
01612000 T 0492 
01613000 T 0492 
SEGMENT oko Ke OR 
01614000 T 0000 
01615000 T O004 
01616000 T 0002 
01617000 T 0003 
01618000 T 0005 
01619000 T 0005 
01620000 T 0008 
01621000 T 0008 
014622000 T 0009 
01623000 T 0010 
13 LONGs NEXT SEG 
01624000 T 0492 
01625000 T 0492 
01626000 T 0492 
SEGMENT 4k ROR eR Ke 
01626100 T 0000 
01627000 T 0000 
01628000 T 00014 
01629000 T 0004 
01630000 T 0005 
01631000 T 0005 
01631100 T 0007 
01632000 T 0008 
01633000 T 00414 
01634000 T 0032 
01635000 T 0015 
01636000 T 0015 
01637000 T 0024 
01638000 T 0023 
01639000 T 0024 
01640000 T 0033 
01641000 T 0033 
01642000 T 0033 
01643000 T 0037 
01644000 T 0038 
01645000 T 044 
01646000 T 0044 
01647000 T 0046 


6 


60 


6 


61 


C) 


C3 


O 


5 


STACK ¢F 42) 
STACK CF +3) 
STACK(F 44) 
STACK(CF +45) 
STACK ¢F +6) 
STACK¢(F +47) 
STACK(F 410) = 


Hoi ut ub: 


STACK¢(F4+i1) = 


MOVEWCARY s FNNHOLDEFNNINDEXIJ*#S2,03586)55Z2)3 
FNNINDEX «© FNNINDEX + SZ3 

ENDS 

PUTCMe"GETEM) 23 % 1D NOW ASSIGNED 

XITi 

FND PRTSAVER? 


PROCEDURE SEGOVFS 
BEGYN 
REAL te Te As Js SADRe INFCe LABPRTS 


INFC 


LABPRT 


REAL SAVINS3 


SAVINS 


FOR T « 4 STEP 4 UNTIL MAXNBHANG 00 


IF JeFNNHANGET]#0 THEN BEGIN BUMPPRTSTRACEBACKC Up FNNHANGETJ«0+ PRTS) END; 


SEGOVFLAG «+ TRUE 
BUMPPRT} 


IF PRTS,£37!21=1 THEN BEGIN 


PACKCEDOCLEDOCT J) + CT«+1&XRTC 36538410) )2ADR, £4632] 3 


1F CODETOG THEN DEBUG¢T)$ ADReADR+1 END 3 


PACKCENOCLENOCT Is ¢T+2&PRTIS(C36#38210)), ADR, £4622))3 


IF CODETOG THEN DEBUGCTDE 
ADR « ADR+43 


PACKPEDOCFEDOCT 1+ CTet&BFW £36%38840]), ADR, £4632))3 


IF CoDETOG THEN DEBUGCT)? 
_ SADR « ADR 
T ¢ PRGNESCBLDR¢2s PRIS» O+ NXAVILG103 
FOR t *# O STEP 4 UNTIL SHX Do 
BEGIn T « STACKHEADLI]3 
WHILE T # 0 DO 
BEGIN IF CAe GETC(T)).CLASS = LABELID THEN 
IF A > 0 THEN 
BEGIN 
ADR « A,ADDR: 
IF LABPRT « CINFCeGET(T+2))eBASE = 0 THEN 
BEGIN 
BUMPPRT$; LABPRT+PRTS3 
PUTCT+#25 INFC & PRTISFTOBASEI)3 
END3 
WHILE ADR # 0 nO 
BEGIN J «© GITCADR)? ADR « ADR#13 
SAVINS#GITCADR4+2),£36810]3 
FMITOPNCLIT¢LABPRT)3 
EMITOCSAVINS)3 
ADR « J3 
ENND3 
INFOFT. TReT,1C1,ADDR « O83 
END3 
T « ALINKS 
End} 


01648000 
01649000 
01650000 
01651000 
01651100 
01652000 
61 1S 57 LONGs 
01653000 T 
04654000 T 
04655000 T 


AoA AAAs 


0048 
0050 
0054 
0051 
0053 
0054 
NEXT SEG 
0492 
0492 
0499 


START OF SEGMENT 4 #4 bok & 


01655100 


—_ 


01656000 
01657000 
01661000 
01662000 
01662300 
01662500 
01662700 
01663000 
01664000 
01665000 
01666000 
01667000 
01668000 
01669000 
01670000 
01671000 
01672000 
01673000 
01674000 
01675000 
01676000 
01677000 
01678000 
01679000 
01680000 
01681000 
01682000 
01683000 
01683100 
01684000 
01684100 
01685000 
01686000 
01687000 
01688000 
01689000 
01690000 


AARH HAH HHH AHA ARTA AAA AAA HA A A HH Ht 


0000 


0000 
0001 
0009 
0013 
0016 
0018 
0023 
0026 
0031 
0033 
0034 
0039 
0044 
0042 
0044 
0046 
0047 
0048 
0050 
0051 
0052 
0053 
0057 
0057 
0062 
0064 
0064 
0065 
0067 
0070 
0070 
0071 
0072 
0072 
0077 
0077 
0078 


6 


62 


C3 


‘= 


C) 


(2) 


Cy 


() 


ie) 


) 


© ie 2 ee ee ee 


CG 


STACK ¢F 42) 
STACKCF 43) 
STACK(F +4) 


STACK(F +5) 
STACKCF +6) 


hou en 


ou 


END$ 
FOR 1 « O STEP 4 UNTIL LBRANCH Do 
IF T « = BRANCHESE!I] > 0 AND T < 4096 THEN 
BEGIN 
ANR «+ T#43 
SAVINS#GITCADR+2),£36810]3 
BUMPPRT$3 EMITOPDCLITCPRTS)3 
EMITOCSAVINS)3 
BRANCHESCIJ « @ CPRTS+4096)3 
END3 : 
SFGMENTCCSADR4+4) DIV 4pNSEGeFALSE oF D0C)3 
SFGMENTSTARTS 
EMYITOCNOPI$ EMTTOCNOP)$ 
SEGOVFLAG « FALSE 


END SEGOVFS 
PROCEDURE ARRAYDECC1)3? VALUE 13 REAL 13 


BEGIN % DECLARES ARRAYS WHOSE «NFO NDFEX 7S 7 
REAL PRToLNKe Ji 


LABEL XIT 3 
BOOLEAN OWNID? REAL X3 


IF DEBUGTOG THEN FLAGROUTINEC™ ARRA™e"YDEC ",TRUE ) 3 


PRT «© GETCI).ADDRS 
IF UNK #* GETCI1+2),SI1Ze = 0 THEN GO TO XIT 3 
IF COWNID « PRT < 1536 AND DATAPRT # 0) THEN 
BEGIN 
EMITOPDCLITCDATAPRT)$3 EMITOCLNG)3 
EMITBC*1, TRUEDF X © LAX 


END} 
EMITOCMKS)3 
EMITDESCLITCPRT)S % STACK OR PRT ADDRESS 
1fF LNK < 1023 THEN 
BEGIN 
tf OWNTD THEN EMITLCO)3 % LOWER BOUND 
EMITLELNK)3 % ARRAY SIZE 
EMITLO1)3 % ONE DrMENSION 
END 
ELSE 
BEGIN 
Jo¢ CLNK + 255) DIV 2563 
LNK t= 2563 ZINCLUDE ENTIRE ARRAY SIZE IN ESTIMATE %512= 
IF OWNID THEN EMITLCOD$3 % FIRST LOWER BOUND 
EMITLOU)3 % NUMBER OF ROWS 
IF OWNID THEN EMITLCO)3 % SECOND LOWER BOUND 
FMITL(256)3 % SIZE OF EACH ROW 
— EMITLO293 % TWO DIMENSIONS 
END; 


FMITLC1)3 % ONE ARRAY 

EMITLCIF OWNID THEN 2 FLSE 0)3 %OWN OR LOCAL 
FMrTOPocLyT¢5)3 % CALL BLOCK 

ARYSZ « ARYSZ + J + LNK3 


START OF SEGMENT 


01691000 T 0078 
01692000 T 00684 
01693000 T Q082 
014694000 T 0084 
01695000 T 0085 
01695100 T 0086 
01696000 T 0088 
01696100 T 0093 
01697000 T 0094 
01698000 T 0096 
01699000 T 0098 
01700000 T 0101 
01701000 T 0102 
01702000 T Q103 
01703000 T 0405 
110 LONGe NEXT SEG 
014704000 T 0492 
01705000 T 0492 
01706000 T 0499 
ee et ee ss 
01706010 T 0000 
01706100 T 0000 
01706110 T 0000 
01707000 T 0002 
01708000 T 0003 
01708100 T 0007 
01708200 T 0009 
01708300 T 0009 
01708400 T OO0O11 
01708500 T 0013 
04709000 T 0043 
01710000 T 0014 
01711000 T O014 
01712000 T 0015 
01712100 T 0016 
01713000 T 0017 
01714000 T 00148 
01715000 T 0019 
01716000 T oO0%19 
01717000 T 0019 
01718000 T 0023 
01719000 P 90024 
01719100 T 0025 
01720000 T 0027 
01720100 T 0027 
01721000 T 0029 
01722000 T Q030 
01723000 T 0030 
01724000 T 0030 
01725000 T 003} 
01726000 T 0033 
01727000 T 0034 


Re 


C) C) 


Cy 20) 


C3 


e Co 


ae, 


> se es 


> 


O 


Op" “E.G. 1: SE 


C3 


STACKCF43) 


PRT¢(547) = 


STACK (F 43) 


PRT(550) = 


STACK(F 42) 


STACK¢F43) 


= T 


BEG? 


ENO}: 


TF DEBUGTOG THEN FLAGROUTINE CH 


yiF NOTCF2TOG OR OWNID) THEN 


F2T0G « TRUE; 


FMITLO1)3 


EMITPAIRCEFPLUS2»STDI3% 


tr OWNYID THEN FIXBCX)3 


X,T! 


END ARRAYDEC3 


REAL PRoCEDURE SEARCH 
BEGIN RFAL T3 


LABEL, X 


Fe2eTRUE 


ARRA","YDEC 


CE)* VALUE E} REAL E3 
IT} 


T «© STACKHEADCE MOD SHX]J3 
WHILp T # 0 D0 


IF INFOCCT4+19,1RoCT+1),.1C) = £ THEN GO TO XIT 


ELSE T «© INFOCT,IReT, IC] elLINK3 


XyTe 


SEARCH « T} 


END SEARCHS 


INTEGER PROCEDURE GLOBALSEARCHCF)3 


GLOBALSEARCH 
BEGIN Real Ts LABEL XT} 


u 
~ 


T «© pLOBALSTACKHEADCE MOD GHXI3 
WHtLe T # 0 DO 


IF INFOLCT#1),1RecT+1),1C) = E THEN Go To XIT 


ESE To ¢ INFOCT.IR#T, ICV eLINK3 


XIT3 


END GLORALSEARCH} 


PROCEDURE PURGEINFO3 


PURGEINFO 
BEGIN RFAL J3 


a 
— 


Ml 
i= 


FLAGC13)3 
FOR J * O STEP 1 UNTIL SHX DO STACKHEADEV] « 0} 
NEXTINFO « 23 
NEXTGOM « O38 


ENDS 


GLOBALSEARCH « T3 


INTEGER PROCEDURE FNTFERCWs £93 VALUF We 
BEGIN Real J 


Es 


", FALSE) 


VALUE E# REAL E3 


ALPHA We» 


TF GLORALNEXTINFO S$ NEXTINFO THEN PURGEINFOS 
WaLINK «© STACKHFADEJ «© F MOD SHX13 
STACKHFADEJ] « ENTER & J «© NeXTINFOS 
INFOrU.ERed, IC] « WS 
INFOr(JeJd+1)2,0ReJ, IC) bl Es 
INFOrCJedti)eIReJeIC] «+ 03 
NEXTINFO ¢ NEXTINFO + 33 

END ENTFR3 


Es 


: 
‘ 


01728000 T 0036 
01729000 T 0037 
01730000 T 0038 
01731000 T 0040 
01732000 T 0040 
01733000 T O04} 
01733100 T 0044 
01733105 T 0043 
04733700 T 0044 
01734000 T 0046 

63 15 53 LONGe NEXT SEG 
01735000 T 0492 
01736000 T OA492 

START OF SEGMENT koko 44 kx 
01737000 T 0000 
01738000 T 0001 
01739000 T 0003 
01740000 T 0007 
01741000 T OO11 
01742000 T 0012 

64 1S 16 LONG» NEXT SEG 
01743000 T 0492 
01744000 T 0492 

START OF SEGMENT *%% #44 40K Ke 
014745000 T 0000 
01746000 T 0004 
014747000 T 0003 
01748000 T 0007 
01749000 T oOOo011 
01750000 T o012 

65 IS 16 LONGe NEXT SEG 
01751000 T 0492 
01752000 T 0492 

START OF SEGMENT xt kok ak 
01753000 T 0000 
01754000 T 0000 
01755000 T 0005 
01756000 T 0006 
01757000 Y 0007 

66 IS 10 LONGs NEXT SEG 
01758000 T 0492 
01759000 T 0492 

START OF SEGMENT 2 okt ok ok i oe 
01760000 T 0000 
01761000 T 0004 
01762000 T 0004 
01763000 T 0007 
04764000 T 0010 
01765000 T 0014 
01766000 T 0018 
01767000 T 0019 


64 


65 


66 


67 


C) 


C} 


INTEGER PROCEDURE GLOBALENTERCW, E)3 VALUE We ES ALPHA Wo E3 


PRT(5519 = GLOBALENTER 


STACK¢F 43) 


PRT¢552) = 


STACK¢F +42) 
STACK(CF 43) 
STACK ECF +4) 
STACK(F +5) 


4 


BEGIN RFAL J 


s J 
IF GLOBALNEXTINFO < NEXTINFO THEN PURGEINFOS 
WeLINK « GLOBALSTACKHEADEJY * E MOD GHX]3 
GLOBALSTACKHEADF J) « GLOBALENTER «© J © GLOBALNEXTINFOS 
INFOPUSTRed, IC] «© Wi 
INFOr(JeJ+1),1IRed.1C] « ES 
INFOrCJeJt1).IReJ, IC] « 03 
GLOBALNEXTINFO « GLOBALNEXTINFO # 33 
FND GLORALFNTER3 
PROCEDURE LABELBRANCH(Ks C)# VALUE K» C# REAL K$ BOOLEAN Cf 
LABELBRANCH 
BEGIN REAL TSoTe ToX3 
= T 
a T 
= | 
= X 


DEFINE ,ABL = Ké#3 

COMMENT LARELBRANCH GENERATES A "LITC ses” AND "BRANCH" FROM THE 
CURRENT ADDRESS TO LABEL Ke 
THE BRANCH 1S CONDITIONAL,» 
THEN THE APPROPRIATE LINKAGE 1S MADES 


IF THE BOOLEAN C IS TRUE 
IF THE LABEL HAS NOT BEEN ENCOUNTERED 


LABEL X1T3 
IF ADR 2 4086 THEN 
BEGIN ADR « ADR+13 SEGOVF FND} 
IF LABL « LBLSHFTCXTA*LABL) < 0 OR LABL = BLANKS THEN 
BEGIN FLAGC(135)3 GO TO XIT ENDS 
IF T « SEARCHCLABL) # 0 THEN 
BEGIN TS + ¢1 # GETCT)).ADDRS 
IF t.CLASS # LABELID THFN BEGIN FLAG(144)% GO TO XIT ENDS 
tr t 7 0 THEN 
BEGIN EMITLINKCTS)3 
EMITOCIF C THEN BFC ELSE BFW)3 
PUTcTer&cADR="4) £TOADDRI)3 
EMITOCNOP)3 
END ELSE 
IF 1eSEGNQ = NSEG THEN EMITBCTS* C) ELSE 
BEGIN IF TSe¢X+¢GETCT+2)9—¢BASE = O THEN 
X,BASE * TS * PRGDESCBLORC250*CI,ADDRIe60 36810] 91. SEGNO)$ 
PUTCT#29X)3 
EMITOPDCLITCTS)3 
EMITOCIF C THEN BFC FLSE BFW)3 
ENDS 
END FLSE 
BFGIN 
IF ADR < 0 THEN EMITOCNOP)3 
EMITLINKCO)S 
EMITOC IF C THEN BFeo ELSE BFW)3 
T « ENTERCO & LABELIDCTOCLASS] & CADR@1) CTOADDR1s LABL)3 
EMITOCNOP)3 
END3 


67 IS 22 LONG» NEXT SEG 
01768000 T 0492 
01769000 T 0492 

START OF SEGMENT kK Ke KK 
01770000 T 90000 
01771000 T QO001 
01772000 T 0004 
01773000 T 0007 
01774000 T 0010 
01775000 T 0014 
01776000 T 0018 
01777000 T 0019 

68 1S 22 LONGs NEXT SEG 
0141778000 T 0492 
01779000 T 0492 


START OF SEGMENT *%k% 4K & 


01780000 
01781000 
01782000 
01783000 
01784000 
01785000 
01786000 
01787000 
01788000 
01789000 
01790000 
01791000 
01791100 
01792000 
01793000 
01794000 
01795000 
01795100 
01796000 
01799000 
01800000 
01801000 
01802000 
01803000 
01804000 
01805000 
01806000 
01807000 
01808000 
01809000 
01810000 
91611000 
01611100 
01812000 


AHA AA HH ARH AH HAHA SAHA AAA HA Hs Ht 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0003 
0007 
0010 
0011 
0014 
0017 
0018 
0019 
0021 
0024 
0025 
0025 
0028 
0032 
0037 
0038 
0039 
0041 
0041 
0041 
0042 
0044 
0045 
0047 
005} 
0052 


68 


69 


(y= ho. 


‘@) ) 


Oo Oo OO 4a © 


© 


Ci 


Nog 


Poot 


IF XREF THEN ENTERXCLABL» ORLABELIDETOCLASS))3 
XIT?. 
FNn LABFLBRANCH? 


PROCEDURE DATASET3 
PRT¢553) = DATASET 


% SCANS CONSTANTS IN BLOCK DATA 


BEGIN 
REAL LST»sCUR*PLTYPeCTYPsSIZsRPT3 
STACKCF +2) = LST 
STACK(F 43) = CUR 
STACK(F +4) = LTYP 
STACK(F +5) = CTYP 
STACKCF4+6) = SIZ 
STACK¢F+7) = RPT 


RFAL CUD} 
STACK¢F4+10) = CUD 

BOOLEAN SaN3 
STACK(F 411) = SGN 


DEFINE TYP = GLOBALNEXT#e 
TYPC = 18833294585 
LABEL XIT»FRROR»DPPs»SPPeCPPeCOMMsS3 
1F DEBURTOG THEN FLAGROUTINEC™ DATA» "SET 
NATATOG « TRUFS FrLETOG « TRUES 
SCAN} 
LSTS « =43 LTYP «773 
St oF TYP = PLUS OR ¢SGN « TYP = MINUS ) THEN SCANS 
IF TYP = NUM THEN 


",TRUE ) 3 


IF NUMTYPE = STRINGTYPE AND STRINGSIZE > 4 THEN 
BEGIN 
IF LTYP # 77 THEN 
BEGIN % NOT FIRST ENTRY@PUSH DOWN PRIOR NUMBER 
IF LSTS+2 > LSTMAX THEN 
BEGIN FLAGC127)3 GO TO ERROR END} 
LSTTCLSTS#LSTS+#1] « RPT&LTYPLTYPCI3 
LSTTCUSTS#LSTS4+1] « LST; 
LTYP + 773 
END3 


tf LSTS + STRINGS!ZE > LSTMAX THEN 
BEGIN FLAGC(127)% GO TO ERROR END} 
LSTTCLSTS#LSTS+#1} « STRINGSIZE & STRINGTYPE[TYPC] 
& S1Z£3%3321513 
MOVEWCSTRINGARRAYeLSTTCLSTS¢LSTS4+i1- 
STRINGSIZE. £3626) +STRINGSIZED3 
LSTS « LSTS + STRINGSIZE ™ 13 
SCAN} 
GO TO COMM; 
END} 
% GOT NUMBER 
IF NUMTYPE = STRINGTYPE THEN 
BEGIN 
FNEXT « STRINGARRAYLO]$3 
NUMTYPE «© INTYPE$ 


69 1§ 


START OF SEGMENT 


01812100 T 0052 
01813000 T 0054 
01814000 T 0055 
58 LONGs NEXT SEG 
018135000 T 0492 
01816000 T 0492 
01817000 T 0492 
ORR GK 
01818000 T 0000 
01819000 T 0000 
01820000 T 0000 
01821000 T 0000 
01822000 T 0000 
01823000 T 0000 
01824000 T 90000 
01825000 T 0000 
01826000 T 0002 
01827000 T 0004 
01828000 T 0005 
01829000 T 0006 
01830000 T 0010 
01831000 T O0%1 
01832000 T O014 
01833000 T 0013 
01834000 T 0013 
01835000 T 0014 
01836000 T 0015 
01837000 T 0016 
01838000 T 0020 
01839000 T 0022 
01840000 T 0025 
01841000 T 0025 
01841100 T 0025 
01842000 T 0025 
01843000 T 0027 
01844000 T 0028 
01644100 T 0031 
01845000 T 0032 
01846000 T 0034 
01846100 T 0036 
01847000 T 0037 
01848000 T 0038 
01849000 T 0038 
04850000 T 0038 
01851000 T 0038 
014851100 T 0039 
01851200 T 0040 
01851300 T 0041 


6 


70 


1F SIZ = 0 THEN SIZ « 43 

END: 
CUR « IF SGN THEN *FNEXT ELSE FNEXTS 
CTYP « NUMTYPE$ CUD « pBLOWs 


SCANS; 
1F TYP = COMMA OR TYP = SLASH THEN 
BEGrN 
IF SIZ = O THEN SIZ «& 13 
tPF CTYP = POUBTYPE THEN 
BEGrN 
DPP; tr LTYP # 77 THEN 
BEGIN 
IF LSTS42 > LSTMAX THEN 
BEGIN FLAG¢12723 GO TO ERROR END3 
LSTTCLSTS«_STS+17 « RPT&LTYPLTYPC)3 
LSTTCLSTS«_STS44] « LST3 
LTYP «© 773 
ENDS 
IF LSTS+#3 > LSTMAX THEN BEGIN FLAG(127)3 GO TO ERROR END} 
LSTTELSTSe¢LSTS+1] «© SIZREDOUBTYPELTYPC)3 
LSTTCLSTSe«LSTS#i] « CUR; 
LSTTLLSTS «+ LSTS + 4] « CUD; 
GO TO COMM; 
END s 
% SINGLE PRECISION 
SPP: 
IF LTYP = 77 THEN 
REGIN 
LST «© CUR; 
LTYP © CTYP3 
RPT «+ SyZ3 
GO TO COMM; 
ENDS 
tr LTYP = cTYP THEN 
1F REALCBOOLEANCCUR) EQV BOOLEANCLST)) = REALCNOT FALSE) THEN 
BEGIN 
RPT « RPT 4 S1Z3 
gO TO COMM; 
END 
1F LSTS#2 > LSTMAX THEN BEGIN FLAGC127)3 GO TO ERROR END3 
LSTTCLSTSeLSTS4+1)] «© RPT&LTYPrTYPCcy3 
LSTTCLSTS«LSTS41) « LST3 
RPT « S{Z3 
LST « CUR$ LTYP « CTYP}3 
GO TO COMM; 
END? . 
% TYP # COMMA @ CHECK FOR * 
1F TYP # STAR THEN BFGIN FLAGC125)3 GO TO ERROR END; 
tPF cTYP # INTYPE THEN BEGIN FLAGC113)3 GO TO FRROR ENDS 
tr S12 # 0 OR SIZ « CUR £€ O THEN 
BEGIN FLAGC64)3 GO TO FRROR ENDs 
SCAN? GO TO S3 
FND3 
% TYP # NUM AT LABEL S 
IF S1Z = 0 THEN SIZ « 43 
TF NAME = WT " OR NAME = "F * THEN 


01851400 
01851500 
01852000 
01853000 
01854000 
01855000 
01856000 
01857000 
01857100 
01858000 
01859000 
01860000 
01861000 
01862000 
01863000 
01864000 
01865000 
01866000 
01867000 
01868000 
01869000 


. 018670000 


01871000 
01872000 
01873000 
01874000 
01875000 
01876000 
01877000 
01878000 
01879000 
01880000 
01881000 
01882000 
01883000 
01883100 
01884000 
01885000 
01886000 
01887000 
01888000 
01889000 
01890000 
01891000 
01892000 
01893000 
01894000 
01895000 
01896000 
01897000 
01898000 
01899000 
01900000 
01912000 
01913000 
01943050 
01913100 


AHA HHH HHH AH HAHA AHA HAA A A HHA A AH HA A A i tt HS 


0044 
0043 
0043 
0046 
0047 
0047 
0048 
0050 
0050 
0052 
0053 
0053 
0054 
0055 
0056 
0058 
0061 
0063 
0064 
0064 
0067 
0069 
0072 
0074 
0074 
0074 
0074 
0075 
0075 
0076 
0077 
0077 
0078 
0079 
0079 
0079 
0081 
0082 
0083 
0084 
0084 
0087 
0089 
0092 
0092 
0094 
0094 
0094 
0094 
0097 
0099 
0402 
0403 
0104 
0104 
0104 
0106 


() 


© 


BEGrN 


01913700 


T 0408 - 
CUR « REALCNAME = "T ty} 01913300 T 01409 Se 
CTYP « LOGTYPES 01943400 T 0410 
SCAN? GO TO SPP3 01943500 T O111 es 
END: 01943600 T 0114 L 
1F TYP # LPAREN THEN BEGIN FLAGC64)3 GO TO ERROR END3 01914000 T 0114 
01915000 T 0116 " 
CPP} % COMPLEX 01946000 T 0116 ee 
IF LTYP # 77 THEN 01917000 T 0117 
BEGIN 01918000 T 0117 ee 
IF LSTS#2 > LSTMAX THEN 01919000 T 0118 i 
BEGIN FLAGC¢127)3 GO TO ERROR END} 01920000 T 0119 
LSTTCLSTS*LSTS#1} « RPT&LTYPETYPCQ? 01921000 T 0121 oe 
LSTTELSTS«LSTS#1] « LST3 01922000 T 0124 = 
LTYP © 773 01923000 T 0126 
END 01924000 T 0127 we 
SCANS 01925000 T 01427 VY 
IF TYP = PLUS OR CSGN*TYP=MINUS) THEN SCANS 01926000 T 0327 
1F TYP # NUM OR NUMTyPr > REALTYPE THEN 01927000 T 0130 a 
BEGIN FLAGC64)$ GO To ERROR ENDS 01928000 T 0132 SY 
IF LUSTS#2 > LSTMAX THEN BEGIN FLAGC127)$ GO TO ERROR END} 01929000 T 0134 
LSTTLLSTS+LSTS4#1] * SIZ8COMPTYPELTYPC]} 01930000 T 0437 = 
LSTTCLSTSeLSTS41) « tf SGN THEN =FNEXT ELSE FNEXT3 01931000 T 0140 Ks 
SCAN} 01932000 T 0444 
1F TYP # COMMA THEN BEGIN FLAGC114)% GO TO ERROR END$ 01933000 T 0144 ae 
SCAN? 01934000 T 0447 U 
IF TYP = PLUS OR ¢SGn « TYp = MINUS) THEN SCAN3 01935000 T 0447 
IF TYP # NUM OR NUMTYPE > REALTYPE THEN 01936000 T 0150 Ee. 
BEGIN FLAGC64)3 Go To FRROR END} 01937000 T 0152 Sw 
LSTTELSTS«LSTS#iJeIF SGN THEN @= FNEXT ELSE FNEXT 3 01938000 T 0154 
SCAN} 01939000 T 0158 
IF TYP # RPAREN THEN BEGIN FLAG(108)3 GO TO ERROR END} 01940000 T 0158 © 
SCANS 01941000 T 0161 
COMM: 01942000 T 0161 ‘ 
SIZ « 03 01942100 T 0162 C 
IF TYP = COMMA THEN BEGIN SCAN? GO TO S$ ENDS 01943000 T 0162 
If TYP = SLASH THEN GO TO XIT? 01944000 T 0165 a 
FLAG(126)3 01945000 T 0166 cS 
ERROR? 01946000 T 0167 
LSTS « O03 01947000 tT 0167 
WHILE TYP # COMMA AND TYP # SLASH AND TYP # SEMI DO SCAN3 01948000 T 0167 O 
IF TYP = COMMA THEN gO TO COMM? 01949000 T 0172 
XrTy 01950000 T 0173 
re LTYP # 77 THEN 01951000 T 0174 © 
BEGIN 01952000 T 0174 
IF LSTS#2>LSTMAX THEN BEGIN FLAGC127)3 LSTS*0O ENDS 01953000 T 0175 = 
LSTTCLSTS#LSTS#11 « RPT&LTYPLTYPC]3 01954000 T 0178 Ss 
LSTTrLSTSe¢LSTS#i1 « LST3 01955000 T 0181 
END3 01956000 T 0483 = 
trF LSTS4_ > LSTMAX THEN BEGIN FLAG¢127)3 LSTS « O END} 01957000 T 0183 hey 
LSTTCLSTS«LSTS41) «03 01958000 T 0186 
IF DEBUGTOG THEN FLAGROUTINEC™ DATA™s"SET  ,FALSED 3 01959000 T 0189 
DATATOG « FALSE? FILET9G « FALSES 01960000 T 0191 o 
END DATASETS 01961000 T 0193 
70 IS £99 LONGe NEXT SEG 6 
ALPHA PROCEDURE CHECKDO: 01962000 T 0492 


PRT(554) = CHECKDO 


Cr ae 


bs) 


STACK¢F 43) 
STACK¢F44) 
STACK(F45) 


PRT(555) = 


STACK ¢F 42) 
STACKCF 43) 
STACKCF+4) 


uug 


BEGIN ALPHA Xe T3 INTEGER N3 


Pin IP 4 


STREAM PROCEDURE CKDOCAs IDs LAB)3 


ro) 
x 
oO 
i>) 


BUN 


BEGIN 
St * At St © Sy+43 DY © LABS DI «© DI+23 
5¢rF Sc 2 "0" THEN DS «© CHR FLSE JUMP OUT); 
NY « ID? Dt « Dre2s 
6¢1F Sc = ALPHA THEN DS « CHR ELSE JUMP OUT); 
END CKDO} ~ 
IF ¢XTAcHOLDIDCO}).612% 94) = "FILE" THEN FLOGC37) ELSE 
IF XTA,£12212] # "Dow THEN FLOGC(17) ELSE 
BEGIn 
X « T «© BLANKS3 
CKDOCHOLDIDEO)» Xe T)3 
IF X=BLANKS THEN FLOG(105)3 
If T « LBLSHFTCT) < 0 OR T = BLANKS THEN FLOGC17) ELSE 
TEST «© NEEDCTs LABELID); 
DOLABEDT] «¢ T3 
Ip XREF THEN ENTERXC(T*ORLABELIDETOCLASS))3 
YF GETCTEST) « O THEN &% TEST FOR PREV DEFINITION 
BFGIN 
XTA * GETCTEST+1)3 
FLAGC15)3 
NT « OT1t3 
END} 
Tp N ¢ SEARCHCX) = O THEN 
NeENTERCOTIPELTIF TeX,ri2s67#"0" THEN T ELSE 121,X) 3 
CHECKDO ¢ GETSPACEC(N)} 
Te XREF THEN ENTERXOXe1&8GETON) £€152%1589))3 
TF ¢XeGETCN)), SUBCLASS > REALTYPE OR X,.CLASS # VARID THEN 
BEGIN XTA « GETCN+123 Fi.AG¢84) ENDS 
IF GETCFX1)eCLASS = UNKNOWN THEN PUTCFX 141» Tepevee)3 
ENDS 
END CHECKDoa} 


PROCEDURE FIXBCN)S VALUE N3 REAL, N3 
BEGIN 
REAL Te Us FROM 


. 
U 
FROM 

LABEL X1ITe BIGJ?— 


IF DEBUGTOG THEN FLAGROUTINEC" Fri, "XB ", TRUE ) 3 
IF N 2 10000 THEN FROM « N=10000 ELSE 
IF FROM + = BRANCHES(N) > 4095 THEN 
BEGIN 
AnJUST3 
T « PRGDESCBLDR(2s FROM. LINK» CADR41).£636%10)» NSEG)3 
GO TO Xq{T3 
END3 
T « ADR3 ADR « FROM = 13 


1F ¢T + 1293046827 = 0 THEN GO TO Brad 


01963000 T 


0492 


START OF SEGMENT xR & 


01964000 


“+ 


01965000 
01966000 
01967000 
01968000 
01969000 
01970000 
01971000 
01971010 
01972000 
01973000 
01974000 
01974500 
01975000 
01976000 
01977000 
01977100 
01978000 
01979000 
01980000 
01981000 
01982000 
01983000 
01984000 
01985000 
01987000 
01987100 
01988000 
014989000 
01990000 
01991000 
01992000 
71, =«IS 63 LONGe 
01993000 T 
01994000 T 
01995000 T 


HAAH HAHAH AAA HAHA HS A tt Ht 


0000 


0000 
0000 
0001 
0003 
0003 
0006 
0006 
0010 
0014 
0016 
0017 
0018 
0020 
0025 
0027 
0028 
0031 
0032 
0033 
0035 
0035 
0037 
0037 
0038 
0044 
0045 
0048 
0052 
0055 
0059 
0059 
NEXT SEG 
0492 
0492 
0492 


START OF SEGMENT ex 4% ee 


01996000 
01996010 
01997000 
01998000 
01999000 
02000000 
02001000 
02002000 
02003000 
02004000 
02005000 


AAA AHHH A AH 


0000 
0000 
0002 
0004 
0009 
0010 
0010 
0014 
0016 
0016 
0018 


71 


6 
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C) 


C) 


C) 


C) 


() 


WP ye AOR Oe MO aa. 20 


CG 


G 


@ 


STACK¢(F4+2) = D 


PRT¢556) 


PRT(557) 


PRT(560) 


PRT(561) 


= T 
wXVE,O" 
eet ADeMaMpAB eM DAVs Marc Are NS) sAdre Mat sArp it MeAae” H,M/)3 
WRITALISTCT «7+ 
1.4" 
TIME C6) eC De TIMEC5) 26612812190, C24:12]+D.036812)> 
N+eCD*RTI DIV 216000) MOD 10*D DIV 10x64" 
D*+€D*RTI DIV 3600 MOD 60) MOD 10+#D DIV 10x64*0) 3 
IF ne*LINEsTYPES10 OR D=12 OR D113 THEN 
BFGIN 
LOCKCLINE)$ LINE.AREAS*O3 LINEsAREASIZE*0 3 
IF D#¥12 THEN LINE, TYPE*#123 SPACECLINE*?2) 3 
= INPUTCW) 
END 3} 
FIRSTCALLSeFALSE 3 
END DATIMES 
PROCENURE PRINTCARND3 
BEGIN | 
STREAM PROCEDURF MOVECPs Qe Ad’ VALUE As Q3 
= MOVE 
BEGIN | 
S1 « O03 Py «& P3 
DS « CHR} 
Dr «+ OL1+112 Sy « LOC A; 
DS « 4 DEC} 
END mOVE3 
STREAM PROCEDURE MOVEBACK(P)$3 
= MOVEBACK 


1ecUe Tr awa 


DR) $_ 402: 
BEGIN ADR « T ADJUST3 T «+ ADR’ ADR «& FROM = 43 
ol 
OL 


BIGJUF EmitTiccT+1),636%10) = CADR+2),036210))3 
EMI TOCIF BOOLEANCGITCFROM + 136£36%1]) THEN GFW FLSE GFC)3 
END3 
ADR « Ty; 
X{T3 


IF N < 40000 THEN BEGIN 
BRANCHESEN] « BRANCHX; 
BRANCHX «© N} 


ENDS. 
IF DEBUGTOG THEN FLAGROUTINECt Fr, "XB ",FALSE) 3} 
ENN FIXR? 
PROCEDURE NATIMES % PRODUCES HEADING LINE FOR LISTING, 
BEGrN 
INTEGER D 3 


FORMAT T¢(X9e"B 5 7 0 0 FORTRAN 


BEGIN DI « P§ DS « LIT "J" END$ 
MOVE ¢CRDL9]*BUFLs CADR+1).£365101)3 
IF FrRSTCALL THEN DATIME3 
IF UNPRINTED THEN WRITAROW(152eCRD) 3 
MOVE BACKCCRD(9})3 


cOMPfttLaAT YON 


02006000 T 0070 
02007000 T 0023 
02008000 T 0077 
02009000 T 003} 
02010000 T 0035 
02011000 T 0035 
020142000 T 0035 
02013000 T 0036 
02014000 T 0037 
02015000 T 0038 
02016000 T 0039 
02016010 T 0039 
02017000 T 0041 

72 1S 47 LONGse NEXT SEG 
02018000 T 0492 
02019000 T 0492 
02020000 T 0492 

START OF SEGMENT % xk Rx 
02021000 T 0000 

START OF SEGMENT #24 OR OK Kk 
02022000 T 0000 
02022500 T 0000 

7a 1S 30 LONG» NEXT SEG 
02024000 T 0000 
02025000 P 0001 
02026000 T 0001 
02027000 T 0005 
02028000 T 0009 
02029000 T 0014 
02030000 T 0019 
02031000 T 0020 
02032000 T 0027 
02033000 T 0034 
02034000 T 0034 
02039000 T 0036 

73 1S 44 LONGs NEXT SEG 
02040000 T 0492 
02041000 T 0492 
02042000 T 0492 

START OF SEGMENT ck RR RE & 
02043000 T 0000 
02044000 T 0000 
02045000 T 0000 
02046000 T 0000 
02047000 T 0001 
02048000 T 0004 
02049000 T 0001 
02050000 T oO001 
02051000 T 0003 
02052000 T 0005 
02053000 T 0007 
02054000 T 0010 


73 


74 


73 


6 


75 


” 


om 


cS 


() 


IF SrQERRORS THEN WRITAROWC14eERRORBUFF) 3 
FND PRINTCARD? 


BOOLEAN PROCEDURE READACARD:’ FORWARDS 
PRT(¢562) = READACARD 
PROCEDURE FILEOPTIONS FORWARD 


PRT¢563) = FILEOPTYON 

BOOLEAN PROCEDURE LABELR: 
PRT¢564) = LABELR 

BEGIN 

LABEL X1Tse LOOP? 

BOOLEAN STREAM PROCEDURE CHECK(CD» |AB)3 
PRT(565) = CHECK 


BEGIN LABEL XIT$ LOCAL T13 
SI « CD3 
IF Sc # " " THEN IF SC < "QO" THEN 
BEGIN DI « LAB} DI « DI + 23 
DS « 6 CHR3 GO TO XIT3 
END3 
DI #L0c Tis DS « 6 LIT " "3; pl ¢« DI @™ 63 
5CIF SC 2 "0" THEN DS « CHR ELSE SI © St#1)3 
OY «LABS DI «DI + 23 SIT + LOC Ti3 
5¢te Sc # "O'" THEN JUMP OUTs SI © SI + 133 
5¢rF Sc 2 "0" THEN DS * CHR ELSE JUMP OUT)3 
TALLY « 13 
XIT! CHECK « TALLY 
END CHECK? 
BOOLEAN STREAM PROCEDURE BLANKCARD(CD)? 
PRT¢(566) = BLANKCARD 
BEGIN LABEL XyT3 
SI « CD} 
2€36¢ IF SC # " "© THEN JUMP OUT 9 To XYT ELSE St « SI + 1295 
TALLY « 43 
XITt: BLANKCARD « TALLY3 
END BLANKCARD3 
LOOP: 
LABL « BLANKS 
IF LABELR * NOT READACARD THEN GO TO XIT3 
If NOT CHECK(CRD[O]>+LABL) THEN 
BEGIN IF LABL = "FILE " THEN FILEOPTION ELSE 
BFGIN IF LISTOG THEN PRINTCARDS 
IF CXTA «© LABL),£12%6] # "Cc" THEN FLAGC135)3 
ENDS 
GO TO LOOPS 
ENp: 
IF ENDSEGTOG THEN IF BLANKCARDCCRD) THEN 
BrGtN IF LISTOG THEN PRrNTCARn$ GO TO LOOP END FLSE 
BEGIN SEGMENTSTARTS 
te LISTOG THEN PRINTCARD? 
tp LABL = BLANKS THEN GO TO X1tT3 
END FLSF 
BEGIN 
IF LABL = BLANKS THEN 
BEGIN IF LISTOG THEN PRINTCARD? GO TO XIT ENDS 
IF ADR > 0 THEN ADYUST3 


02054010 T 
02055000 T 


75 18 14 LONG» 
02056000 T 
02058000 T 


02059000 


+ 


02060000 
02061000 
02062000 
START OF SEGMENT 
02063000 


A* 44S 


02064000 
02065000 
02066000 
02067000 
02068000 
02069000 
02070000 
02071000 
02072000 
02073000 
02074000 
02075000 
02076000 
02077000 
02077100 


ee ee 


02077200 
02077300 
02077400 
02077600 
02077700 
02077800 
02078000 
02079000 
02080000 
02081000 
02082000 
02083000 
02083100 
02083200 
02084000 
02085000 
02086000 
02086500 
02087000 
02088000 
02089000 
02090000 
02091000 
02092000 
02093000 
02094000 


AAA HHH AHHH HHA Ht Ht = 


OO11 
0013 


"sages 
0492 
0492 
0492 


0492 
0492 


ek OR OK 


0000 


0000 
0000 
0000 
0001 
0002 
0003 
0003 
0004 
0006 
0007, 
0009 
0011 
0011 
0012 
0013 


0013 
0044 
0014 
0017 
0017 
0018 
0019 
0020 
0020 
0022 
0025 
0027 
0030 
0033 
0033 
0034 
0034 
0037 
0039 
0040 
0042 
0043 
0043 
0044 
0045 
0047 


6 


76 


4 


© 


Cy 


O 


Ci 


IF LISTOG THEN PRINTCARD? 02095000 T 0049 
END3 02096000 T 0051 
XIT! 02116000 T 0051 
END LABELR3 02117000 T 0052 
76 1S 55 LONGs NEXT SEG 6 
PROCEDURE FILEORTIONS 02118000 T 0492 
BEGIN COMMENT THIS PROCEDURE PROCESSES THE OPTIONAL FILE CONTROL CARD, 02119000 T 0492 
THE WORD "FILE APPEARS IN COL. 1 * 4, COL, 5 AND 6 ARE BLANK, 02120000 T 0492 
#1 BELOW 1S REQUIRED» OTHER ENTRIES MAY BE AS SPARSE AS DESIRED. 02121000 T 0492 
te FILE <NUM> = <MULTI*®FILE 1D> 7 «FILE ID> 02422000 T 0492 
OR 02423000 T 0492 
FILE <NUM> = <FILE 1D? 02124000 T 0492 
THE FOLLOWING "/" 1S A DOCUMMENTARY OR, 02125000 T 0492 
THE SEQUENCE OF RESERVEn WORDS MUST Be MAINTAINED, 02126000 T 0492 
9, UNI TePRINT/READER/PUNCH/DISK/TAPF7/TAPES/REMOTE CUNIT DESIGNATE), 02127000 T 0492 
3. UNLABELED CFOR UNLABELED TAPES) 02128000 T 0492 
4, ALPHA (FOR ALPHA RECORDING MODE) 024129000 T 0492 
5. BCL CIGNORED, FOR 3500 USF) 02430000 T 0492 
6, FIXEN CIGNOREDs FOR 3500 USF) 02731000 T 0492 
7, SAVE = eNUM> CSAVE FACTOR IN DAYS) 02432000 T 0492 
8, LOCK CLOCK FILE AT E0U) 02433000 T 0492 
9, RANDOM/SERIAL/UPDATE CDISK USE) 02134000 T 0492 
10, AREA = «<NUM> CDISK RECORDS/ROW) 02435000 T 0492 
tie BLOCKING = <NUM> CRECORD PER BLOCK) 02136000 T 0492 
12. RECORD = <NUM> CRECORD SIZE) 02137000 T 0492 
13, BUFFER = <NUM> (# oF BUFFERS) 02138000 T 0492 
14. WORKARFA CIGNOREDs FOR 3500) H 02139000 T 0492 
ALPHA PeKEEP3 BOOLEAN TOGsCAsTS3 LABEL XIT3 02140000 T 0492 
START OF SEGMENT ##%* ke 4K KX 77 
STACK(F4+2) = P 
STACKCF+3) = KEEP 
STACK(F+4) = TOG 
STACK¢F4+5) = CA 
STACK¢F+6) = TS 
COMMENT INXFIL = ENFC,ADINFOr MULTY FILE ID = FILEINFOLCLeINXFILI » 02141000 T 0000 
FILE ID = FILEINFOCAceINXFILJ, DISK RECORDS = FILEINFOL3sINXFILI]» 02142000 T 0000 
FILFINFOLOeINXFILJ FROM RIGHT TO LEFT 1S 02143000 T 0000 
INTEGER &% NAME USF BITS 02144000 T 0000 
BUFF s % # BUFFERS 6 02145000 T 0000 
STACK¢(F47) = BUFF 
; RECORD, % RECORD SIZE 12 02146000 T 0000 
STACK¢F +19) = RECORD 
BLOCK» % BLOCK SIZE 12 02147000 T 0000 
STACK¢F414) = BLOCK 
SAVER % SAVE FACTOR 12 02148000 T 0000 
STACKCF 412) = SAVER 
SPIN» & REW & LOCK @ EouJ 2 02149000 T 0000 
STACK¢F +13) = SPIN 
ALPH? % RECORDING MODE 1 02150000 T 0000 
STACK(F4+14) = ALPH 
PROCEDURE FETCH 02151000 T 0000 
PRT(567) = FETCH 
BEGIN SCAN} XTA « SYMBOL} 02152000 T 0000 
If NEXTSCOMMA OR NEXTSMLINUS THEN 02153000 T 0001 
BFGIN SCAN! XTA « SYMBOL} 02154000 T 0003 
IF NEXT # 10 THEN FLOGC37)3 02155000 T 0004 
END3 02156000 T 0006 


G Cs 


O 


ie: 


Cr Ge AO Ge IG AO: ee Se 


Ce 


CQ) 


PRT¢570) 


PRT¢571) 


PRT(572) 


FND FETCHS 
INTEGER STREAM PROCEDURE MAKEINTCXTAD? 


MAKE TNT 


BEGIN LaBFL LOOP? LOCAL T3 
S] « XTas Sy © St + 23 
LOOP? +F Sc 2 "0" THEN 
BEGIN TALLY « TALLY + 15 SI «© St + 43 GO TO LOOP END; 
T « TALLY’ Sy «¢ XTAP Sy « St 4 23 DY * LOC MAKEINT3 OS « T OCTS 
END MAKFYINT3 
INTEGER PROCEDURE REPLACEMENT? 


=z REPLACEMENT 


un 


SRI7 


BEGIN 

FETCHS IF NEXT = EQUAL THEN 

BEGIN FETCHS IF XTA,C12%6) $ 11 THEN BEGIN REPLACEMENT « MAKEINTCXTAD3 
FETCH END ELSE FLOGC37)3 

END ELSE FLOG(37)3 

END REPLACEMENTS 

INTEGER STREAM PROCEDURE SRI7¢S)3 


BEGIN S71 « S$ DI « LOC SR1I73 

St « S] + 23 DI « OF + 13 
END SRI7? 
COMMENT * * * * * START OF CONF * * * * 3 
IF DEBURTOG THEN FLAGROUTINE Ct FILEO","PTION ", TRUE > ae 
FRRORTOG « FALSES 
IF LISTOG THEN PRINTCARD# 
XTA © “FILE 3 
TF NSEG # O THEN FLAG(60)93 
tr INXePyL « TNXFIL + 1 > MAXOPFYLES THEN 
BEGIN FI,AG¢59)? GO TO XT END3 
BUMPPRT; _ 
MAXFILES « MAXFILES + 43 
FILETOG « TRUES SCN « 43 % START SCAN MAINTAINENCE 
FETCHS IF XTA,£1236] > 114 THEN BEGIN FLAG(37)3 GO To XIT END} 

IF XTA.0C12%6] = 0 THEN BEGIN FLOGC037)$ GO To XIT END 3 
IF T © GLOBALSEARCHCP «+ O&","fi9$4os;6I)&8XTAL18212230)]) # O THEN FLAGC20) 
ELSE BEGIN Pe GLOBALENTERC*08PRTSECTOADDRIRFILEIDETOCLASS] »P)3 

PUTCP+2eGETCP#2)8INXFILETOADINE OI); 
IF XREF THEN ENTERXCXTA 81fTOCE)s¢1&FILEIDETOCLASS))3 


a2 * 7 CHR} 


ENn$ 
INFC #© GETCP + 2)3 
FETCH$ IF NEXT = EQUAL THEN FETCH ELSE 
BEGIN FLOG(372% GO TO XIT3 END3 
1F NEXT = SEMI THEN 
BEGIN FI.AG(37)3 GO TO XIT FND 
ELSr FILEINFOCAsINXFIL] © SRI7CACCUME11)93 
FETCH IF NEXT = SLASH THEN 
BrGIN FILEINFOCIsINXFIL] « FILEINFOL2,INXFIL]3 2 MULTI FILF ID 
FETCH 
JF NEXT = SEMI THEN BEGIN FLAGC37)3 GO TO XIT$ END 
ELSE FILEINFOLAeINXFIL] « SRI7CACCUM(139)3 


FETCH? 
END} 
IF XTA = "UNTT THEN 
BEGIN 
FETCH: 


IF NEXT = EQUAL THEN FETCH ELSE FL,0GC37)3 


02157000 
02158000 


02159000 
024160000 
02161000 
02162000 
02163000 
02464000 
02165000 


02166000 
02167000 
02168000 
02169000 
02170000 
02171000 
02172000 


02173000 
02174000 
02175000 
02176000 
02176010 
02176100 
02477000 
02178000 
02179000 
02180000 
02181000 
02482000 
02183000 
02184000 
02485000 
02185010 
02186000 
02187000 
02188000 
02188100 
02189000 
02190000 
02191000 
02192000 
02193000 
02194000 
02195000 
02496000 
02497000 
02198000 
02199000 
02200000 
02201000 
02702000 
0203000 
02904000 
02705000 
02206000 


4 


AAS AA AA AHA Ho 
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0006 
0007 


0007 
0007 
0007 
0008 
0009 
O011 
0012 


0012 
0012 
0014 
0019 
0020 
0022 
0024 


0024 
0025 
0026 
0027 
0027 
0030 
0030 
0032 
0033 
0035 
0037 
0042 
0045 
0047 
0048 
0052 
0055 
0060 
0064 
0068 
0072 
0072 
0073 
0076 
0077 
0078 
0080 
0084 
0085 
0088 
0089 
009; 
0095 
0096 
0096 
0096 
0097 
0097 


C3 


YO © 


© ees > en a @ eG) A 


CO} 


INFCeLINK « KEEP « CIF TOG « XTA "PRINT " 
OR XTA "PRINTE" THEN 18 ELSE 

IF CA « TOG « XTA "READ ™ 
oR XTA "READER" THEN 2 ELSE 


IF CA ¢« TOG # XTA 
IF TOG « XTA 
IF TOG « XTA "TAPE ' 
OR XTA "TAPE7T " THEN 2 ELSE 
IF TOG « XTA = "PAPER * THEN 8 ELSE 
IF CA ©TOG*XTA= “REMOTE" THEN 19 ELSE 
1F TOG «© XTA = "TAPES " THEN 2 ELSE 293 
1F TOG THEN FFTCH ELSE FLOGC37) 
END ELSe  tNFC.LINK*#KEEP*IF DCINPUT THEN 12 ELSE 2 3 
TSeKEEPH12 3 
TF XTAS"BACKUP" THEN 
BEGIN 
FETCH’ IF KEEP#0 AND KFEP#18 THEN FLAGC37) 3 
JF TOGeXTA="DISK " THEN KEFPerr KEEP=0 THEN 22 ELSE 15 
ELSE tF TOGeXTARS"TAPE THEN KEEPe IF KEEP=0 THEN 20 ELSE 6 


"PUNCH ™ THEN O ELSE 
"DISK " THEN 12 ELSE 


nntat ion uu 


FIL,SE BEGIN 
TOGeXTAS"ALTERN"S KEEPsIF KEEP=0 THEN 25 ELSE 16 3 
END 3 
IF ToG THEN FETCHS INFCeLINK*KEEP 3 


END 3 
IF XTA = "UNLABE™ THEN 3% FOR UNLABELED TAPES 
BEGIN IF KEEP = 2 THEN INFC sLINK « 93 FETCH$ END3 
IF XTA = "ALPHA * THEN FETCH ELSE IF KEEP = 2 THEN ALPH «# 13 % MODE 
IF XTA = "BCL " THEN FETCH 2 FOR 83500 
IF XTA = "FIXED ™ THEN FETCHS 2 FOR B3500 
= "SAVE ™ THEN SAVER « REPLACEMENTS 
1F XTA = "LOCK ‘ THEN BEGIN SPIN « 23 FETCH END$ 3&3 REW & LOCK AT EOU 
If TOG « XTA & "RANDOM" THEN T « 10 ELSE 
tr TOG «© XTA "SERIAL" THEN T «+ 12 ELSE 
If TOG « XTA "UPDATE" THEN T « 133 
rF TOG THEN 
BEGIN 'F KFEPs12 THEN ItNFC.LINKeT ELSE FLAGC37)3 FETCH END 3 
TF XTA="AREA “ THEN 
BEGIN 
IF KEEP#12 THEN 
TeRePLACEMENTS 
IF XTAS"EU " THEN 
IF teREPLACEMENT>49 THEN FLAGC37) 
ELSE T,EUNFer+ 13% O MEANS EU NOT SPECIFIED 
IF XTAs"SPEED & THEN 
BEGIN 
FETCHS 
IF NEXTSEQUAL THEN 
BEGIN 
FETCH} 
IF XTA,C12%61SSLOWV THEN 
IF T*MAKEINTCXTA)>SLOWV THEN FLAGC37) 
ELSE 
ELSE IF XTAF"FAST " THEN 
ELSE IF XTAS"SLOW ™ THEN 
ELSE FLOG(37)3 


FLAGC37)3 


T,SPDFeFASTV 
T,SPOF*SLOWV 


FETCH3 
END 


02707000 
02208000 
02709000 
02210000 
02211000 
02212000 
02713000 
022714000 
02214100 
02214500 
02215000 
02216000 
02217000 
02217050 
02217100 
02217150 
02217200 
02217250 
02217275 
02217300 
02217350 
02217400 
02717450 
02717500 
02218000 
02719000 
02220000 
02221000 
02222000 
02223000 
02724000 
02225000 
02226000 
02227000 
02228000 
02229000 
02230000 
02230010 
02230020 
02230030 
02230040 
02230045 
02230050 
02230060 
02230070 
02230080 
02230090 
02230100 
022730110 
02230115 
02230120 
02230125 
02230130 
02230140 
02230150 
02230160 
02230170 


AANA H AHH ABH HAHAHA TAHA ATA A A A A ATA ART TARA FIO AH SHA ar 


0101 
0102 
0105 
0105 
0109 
0112 
0115 
0115 
0118 
0121 
0124 
0128 
0142 
0447 
0148 
0149 
0150 
0153 
0457 
0164 
0167 
0171 
0174 
0174 
0174 
0174 
0178 
0186 
0187 
0189 
0191 
0194 
0196 
0205 
0209 
0209 
0216 
0217 
0217 
0219 
0220 
0221 
0224 
0229 
0230 
0230 
0231 
0231 
0232 
0232 
0234 
0237 
0238 
0242 
0246 
0250 
0251 


C) 


(> 


\ 
/ 


} 


1 
} 


e 


CY 


on 


ee, 


© 


C) 


PRT(573) 


PRTC574) 


tl 


ELSE FLOGC37)3 
ENN? 
IF XTA="SENSIT" THEN 
BFGIN 
T.SENSF 3313 
FFTCH3 
ENDS 
FILE INFOC3sINXryLJ tals 
ENDS 
IF XTA = "BLOCKI™ THEN BLOCK « REPLACEMENT & 47 2ta7t4]3 
RECORD « IF XTAS"RECORD™ THEN REPLACEMENT ELSE IF CA THEN 10 ELSE IF TS 
AND NOT CBOOLEANCBLOCK,£2:13)) THEN 10 & 16284781] ELSE 473 
BUFF ¢ IF XTA = "BUFFER" THEN REPLACEMENT ELSE 23 
IF XTA = "WORKAR™” THEN FETCH ’ I INGNOREDs FOR 3500 
IF BUFFe1 OR BUFF>32 THEN BEGIN XTA+"BUFFER"3 FLAGC152) END 3 
IF RECORD<} THEN BEGIN XTAc«"RECORD"3S FLAGCIS2)END § 
IF SAVER>999 THEN: BEGIN XTAe"SAVE "3 FLAGC1529 END 3 
IF TeINFC,LINK=10 OR T=12 OR T=13 THEN 33% ARE IN DISK FILE 
BEGIN 
sie PEP NeRE CORD GET NII THEN BLOCK * 300 
ELSr 
IF BLOCK*#BLOCKXRECORND>4890 OR RECORD>1023 THEN 
- BEGIN XTA*"BK/REC"$ FLAGC152) END 
D 
ELSF IF BLOCK«BLOCKXRECORD>1023 OR RECORD>1023 THEN IF KEEP # 2 THEN 
BEGIN XTA*"BK/REC"™S FLAGC58 ) END ELSE BEGIN RECORD*257$ BLOCKeOEND; 
FILEINFOLCO,INXFIL] « O&BUFFL42242%6 &RECORDS 302 3621218BLOCKL 182 368427) 
RSAVER( 6% 3681218SPING4S 46% 21RALPHE 32478173 
XIT# tre NEXT # SEM? THEN 
BrGIN FLOGC37)3 DO SCAN UNTIL NEXT = SEME? END? 
FILETOG « FALSES % END SCAN MAINTAINENCE 
PUT¢P4+2eTNFC)3 
IF DEBUGTOG THEN FLAGROUTINEC® FILEQ*»"PTION "sFALSE) 3 
END FILFOPTIONS 


PROCEDURE DOLOPTS 


DOLOPT 


BEGIN 
REAL STREAM PROCEDURE SCANCBUF*1D)3 VALUE BUF3 


BEGIN LABEL LPsLAsbLeeXIT3 
SI « BUF$ DI * [D3 DS « 29 LIT "ON3 

LPs IF Sc = " " THEN BFGIN SteSt+t3 GO TO LP3 ENDS 
IF SC = "se" THEN BFGIN SteSt+13 GO TO LP ENDS 
IF SC = "+" THEN BEGIN DS*CHR? GO TO XIT$ END 
IF SC = "=" THEN BFGIN DS*CHR3 GO TO XIT? END3 
IF SC < "A" THEN BFGIN Dt « ID3 DS « 8 LIT 400000073 

LE § Sr#Sy+13 
GO TO X1T3 
END; 

IF SCstxe THEN G0 TO LE3% THrS 7S > war 
IF Sc=av#¢" THEN GO TO LE3s% THIS IS > wat 


6CIF SC = ALPHA THEN DS « CHR ELSE JUMP OUT)$ 
LA: IF SC = ALPHA THEN BEGIN SIeSI+43 Go To LAS END3 


SCAN «+ SI$ 


77 «18 


02230180 
02230190 
02230200 
02230210 
02230220 
02230230 
02230240 
02230300 
02230400 
02231000 
02232000 
02232010 
02233000 
02234000 
02236000 
02736010 
02236020 
02237000 
02237010 
02237012 
02237015 
02237020 
02237021 
02237030 
02937040 
02237050 
02238000 
02239000 
02240000 
02241000 
02942000 
02243000 
02243010 
02244000 


338 LONG 


02245000 


02245300 
02245600 


START OF SEGMENT. 


02245900 
02246200 
02246500 
02246800 
02246900 
02247000 
02247100 
02247200 
02247400 
02247700 
02247800 
02247900 
02748000 
02248300 
02248600 
02248900 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
Tr 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
2 
T 


T 


0251 
0252 
0252 
0253 
0253 
0255 
0256 
0256 
0258 
0258 
0261 
0265 
0269 
0272 
0274 
0278 
0280 
0283 
0287 
0287 
0289 
0289 
0299 
0301 
0304 
0309 
0314 
0319 
0322 
0323 
0326 
0327 
0329 
03314 
NEXT SEG 
04992 


0492 
0492 


Trees Te. T 
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0000 
0000 
0001 
0002 
0004 
0005 
0007 
0009 
0010 
0010 
0010 
0011 
0012 
0014 
0015 
0015 


6 


78 


QO 


O 


O 


CO 


C 


AN 
REAL P 


PRT€575) = GETVOID 


PRT(576) = 


PRT(577) 


PRT(600) 


a 


H 


STACK(F 42) 
STACK¢(F +3) 


STACK ¢CF +4) 
STACKt(F45) 


* 


BEGIN LABEL LsLCeLDeLEsXrTs LOCAL TA$ 


ST t= BUFS DIS=VOIDSEQS NSt=8LIT" "3 DTs=VOIDSEQs 
Lt IF SC =." "© THEN BEGIN SteSt4+13 GO TO L$ ENDS 


TA + SUZ3 
IF St 2 «One THEN 
BEGIN 9CST#Sr+13 


IF SC = """ THEN BEGIN Sf«St+#13 JUMP OUT TO LC3 


ELSE TALLY « TALLY + 1)3 


TALLY#STALLY4+633 SpisTAs Syt=eSt+13 GO TO LE3 


END! 
IF Sc < "O" THEN GO TO Ln} 
NStsBLIT"ON; 
BCSrt=Sp+ts NOls=epte13 TALLYS=TALLY4 13 
7 IF Sc LSS "0" THEN JUMP OUT)3 
Let S1 « TA3 


Les} TAS=TALLYS DSt=TA CHR GETVOIDt=S1s GO TO XIT? 


Ln? GETVOrDteSqz3 
FRCDStsBL ITO"); 

XITE 

ENN GETVOID3 

REAL STREAM PROCEDURE SEQNUMCBUF»VLU)$ VALUE BUF3 
SEQNUM 

BEGIN LABEL LeLAsLC$S LOCAL TApTBs 
St « BUF? 

Lt IF SC = " " THEN BEGIN Sr*S[#13 GO TO L$ ENDS 
1F SC = "+" THEN BEGIN St*St#1# GO TO L3 END} 
TA « SP3 
IF SC = "4" THEN 
BEGIN SyeS1413 


LA$ IF SC = " " THEN BEGIN SIeS14+18 GO TO LASEND3 


Ta « Sy 


IF SC < "O" THEN BEGIN SI*TAs’ GO TO LCS END? 


OreTBeTAepny3 
END3 
BerrF SC < "0" THEN JUMP OUT TO Le? 
TALLY*TALLY4+13 SyeSp413)3 
LC: TB « TALLY? SEQNUM « ST3 
St « TA’ Dt « VLUS DS « TB OCT3 
END SEQNUM3 
REAL STREAM PROCEDURE MKABS(S)3 


MK ABS 
BEGIN ST « S$ SteSI+13 MKABS « SY} 
DI « S3 9CDI © DI + 893 DS & LIT "ers 
END MKABS} 
STREAM PROCEDURE MOVEWC(CP2Q)3 VALUE Q3 
MOVEW 


BEGIN St*Ps DI «© Q3 DS*CHR$ END 3 
REAL BUF eIDs 


= BUP 

. BOOLEAN VALs SAVELISTOGS 
= VAL 

= SAVELTSTOG 


LABFL LPsSET»RFSET? 


ROCEDURE GETVOIDCBUF*VOIDSEQsFR)$ VALUE BUFeFR3 


ENN 


#1158 
%115° 
*¥115= 


z5t1-= 


02249800 
02250100 
02250400 
02250500 
02750700 
02251000 
02251300 
02251600 
02251900 
02252200 
02252500 
02252600 
02252800 
02252850 
02252900 
02253100 
02253400 
02253700 
02254000 
02754300 
02254600 


02254900 
02255200 
02255500 
02255800 
02256100 
02256400 
02256700 
02257000 
02257300 
02257600 
02257900 
02258200 
02958500 
02258800 
02259100 
02259400 
02259700 
02760000 


02260300 
02260600 
02260900 
02260925 
02260950 
02761200 
02261500 


02261800 


a4 
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a4 4 


a+ 


Q 


FORMA 
PRT¢601) = WARN 


DEF YN 


BEGIN 


SET} 


RESETS 


LP & 


T WARNCX185A6s" ILLEGAL CONSTRUCT ON DOLLAR CARD XXXX'*5X39, 


"WARNING" )3 


E GETID = BEGIN IDe w "3 BUF « SCANCBUFsID) END#3 

SAVELISTOG t= LISTOG$ 

MOVEWCCRDE9J*BUFL)} 

BUF « MKABSCCRD(0))3 

GETID3 

IF 1D = "VOID ” THEN 
BEGIN BUF + GETVOIDOCBUFs VOIDSEQ*0)3 VOIDTOG « TRUE 
END ELSE 

IF 1D = “VOTDT ™ THEN 
BEGIN BUF © GETVOFDEBUF, VOIDTSFQ20)3 VOIDTTOG « TRUE 
END ELSE 


TAPETOG.£47%1] * LASTMODE = 23 


IF JD = "SET "OR 1D 5 "4 " THEN 
BEGIN GETIDs VAL© TRUE END 

ELSE 

IF 1D = "RESET " OR tN = tm "THEN 
BEGIN GETID$ VAL « FALSF END 

FLSE 

BFGIN 


TSSMESTOG « VAL? TSSFD1TOG «+ VAL CHECKTOG « VAL} 
SINGLETOGeNOT VAL3 WHOL TOGeVALA 
LISTOGeVAL} CODETOG « DEBUGTOG «+ VAL? NEWTPTOG « VAL? 
PRTOGeVALS DOLIST«VAL3 LIBTAPE«VAL3 SEGPTOGeVAL3 
LISTPTOG «+ VAL} FREEFT9G « XREF + VAL 3 
VAL « TRUE} 
END} 
IF ID > O THEN 
BEGIN 
IF ID = "TRACE " THEN 
BEGIN PRTOG«VAL3 LISTOGeVAL! CODETOG*DEBUGTOG+*VAL3 
ENN ELSE 
IF 10 = "CARD "™ THEN 


START OF SEGMENT #4 eR RK RK 


79 «1S 


SSyie 


z517* 


%¥501" 
*501° 


K501= 


BEGIN TAPETOG.C47s1}*NOT VALS LASTMODE«2"REALCVAL) END ELSE 


IF ID = "TAPE ™ THEN 


BEGIN TAPETOG,(C4731) * VALS LASTMODE « REALCVAL)+13 END ELSE 


IF 1D = "NOSEQ " THEN SEQTOG «+ FALSE ELSE 


IF 1D = "SET "OR ¢D = " THEN GO TO SET ELSE 
YF 1D = "RESET " OR 1D & te " THEN GO TO RESET ELSE 
IF 1D = “ONSITE” AND NOT REMFIXED THEN REMOTETOG « FALSE ELSE 
IF 10 = "REMOTE" AND NOT REMFIXED THEN REMOTETOG « VAL ELSF 
1F 1D s “"FREEFO" THEN FREEFTOG « VAL ELSE 
IF 10 = “SINGLE” OR 1D = "SGL * THEN 
BEGIN SINGLETOG « VAL? LISTOG « TRUES END FLSE 
IF 1D = "NEW "OR 1D = "NEWTAP™ THEN 
BEGIN |, IBTAPE«eVAL3 NEWTPTOG+VALS NTAPTOGeTRUE$ %504° 
IF ID = "NEW " THEN #501" 
BEGIN £5016 
GETIO3 4501° 
IF 1D # "TAPE ™ THEN 4501" 
GO TO LP? %501° 
ENDS 2501 


02262100 T 0058 
02262400 T 0058 
15 LONGs NEXT SEG 
02762700 T 0058 
02769775 C 0058 
02262800 T 0059 
02263000 T 0060 
02263300 T 0062 
02263600 T 0065 
02263900 T 0066 
02264200 T 0069 
02764500 T 0071 
02264800 T 0074 
02265100 T 0078 
02265400 TFT 0079 
022765700 P 0084 
02267200 T 0083 
02267500 T 0085 
02267800 T 0089 
022768100 T 0089 
02768400 T 0094 
02268700 T 0099 
02269000 T 0099 
02269300 P 0103 
02269600 P 04108 
02769900 T 0412 
02270200 P 0116 
02270500 T 0123 
02270800 T 0127 
02271100 T .0128 
02271400 T 0128 
02271700 T 0129 
02272000 T 0130 
02272300 T 0131 
02272400 T 0136 
02272500 T 0136 
02272510 P 0138 
02272550 T O42 
02272560 T 0144 
02272600 T 0148 
02272900 T 0153 
02273200 T 0156 
02273500 T 0159 
02973800 T 0164 
02274100 T 0174 
02274400 T 0179 
02274700 T 0182 
02975000 T 01486 
022975100 P 0194 
02275120 C 0197 
02275140 C 0198 
02275160 C 0198 
02275180 C 0201 
02275200 € 0202 
02275220 C 0202 


stay 


PRT(602) 


PRT¢€603) 


a 


*LISTs 


*LISTs 


LABEL,» 


LABEL,» 


END3 


THEN 


AND NOT SEGSWFIXED THEN SEGSW « VAL ELSE 


THEN 
THEN 


THEN 
THEN 
THEN 
THEN 
oR 1 


THEN 


LISToG « VAL ELSE 
PRTOG « VAL ELSE 


CODETOG+VAL’3 PRTOG « VAL END ELSE 
TIMETOG « VAL ELSE 

TSSMESTOG «+ VAL ELSE 

TSSENITOG « VAL ELSE 

LISTLIBTOG VAL ELSE 
D = "SEG ") AND VAL THEN 
EGOVFSEND ELSE 


* AND VAL THEN WRITECLINELPAGE)) ELSE 


IF VAL THEN BUF « GETVOIOCBUFeVOTDSEQsr1)3 


THEN 


IF VAL THEN BUF © GETVOIDCBUF*VOIDTSEQ#1)3 


IF 


VAL THEN O ELSE @603 


BUF t= SEQNUMCBUFeLIMIT)3 
IF LIMIT LE@ ERRORCT THEN GO TO POSTWRAPUPS$ 


THEN 


PXREF « TRUES XREF « VAL3 


END ELSE 
IF 10 = "LIST " 
IF 1D = "SEQXEQ" 
IF ID = "PRT * 
IF ID = "DEBUGN" 
BEGIN LISTOG*VAL# 
FID = "TIME * 
1F 1D = "“ERRMES" 
IPF iD = "TSSEDY" 
IF ID = "LISTLI"® 
IFcID = "“SEGMEN® 
BEGIN ADR«#ADR+t3 5§ 
TF ID = "PAGE 
tr m= "VOID * 
BEGIN VOIDTOG « VAL3 
END ELSE 
IF 1D = “VOrIDT * 
BEGIN VoIDTToG « VAL} 
END ELSE 
IF ID = "LIMIT ™ THEN 
BEGIN LIMIT &&= 
END ELSE 
IF ID = “"XREF " 
BEGIN 
END ELSE 
IF ID = “SEQ Ms 


THEN 


BEGIN SEQTOG « VAL3 


IF VAL THEN 


BEGIN SEQBASE «+ SFQrNCR « 03 

BUF ¢« SEQNUMCRUF +SEQBASE)3 
BUF + SEQNUM(BUF»SEQINCR)$ 
TF SEQINCR ¢ 


END END 
IF 1D 
IF 1D 
IF 1D 
IF ID 
IF ID & 
BEGIN IF 


tun u i 


FND 

; 

GFTID? 
GO TO LP 
FNDS 


ELSE 

ti rsSTDo™ 
"HOL . 
"CHECK " 
"NEWPAG" 
"LEISTP tt 


THEN 
THEN 
THEN 
THEN 
THEN 


O THEN SEQINCR « 10003 


DOLIST « VAL ELSE 
HOLTOG « VAL ELSE 
CHECKTOG «+ VAL ELSE 
SEGPTOG « VAL ELSE 
LISTpTOG « VAL ELSE 


FIRSTCALL THEN DATIMES 
IF UNPRINTED THEN BEGIN PRINTCARDS UNPRINTED«FALSE END? 
IF SINGLETOG THEN WRITECLINE* WARN® ID) 

OR SEGMENT PDESCRIPTOR* 
ELSE WRITECRITE®WARNeID)3 

OR SEGMENT DESCRIPTOR* 


; 


IF DOLIST OR LISTOG OR SAVFLISTOG THEN 
IF UNPRINTED THEN PREINTCARD3 


4501" 


2501" 


*511" 
Z517= 


02275240 
02275300 
02275600 
02275900 
02276200 
02276500 
02276800 
02277100 
02277400 
02277700 
02278000 
02278300 
022778600 
02978900 
02279200 
02279300 
02279500 
02279800 
02280100 
02280300 
02280400 
02280700 
02281000 
02281300 
02281600 
02282500 
02282800 
02282850 
02282900 
02282950 
02283100 
02783200 
02283300 
02283400 
02283700 
02284000 
02784600 
02284900 
02285200 
02285500 
02285800 
02286100 
02286400 
02286700 
02287000 
02287300 


02287600 


02287900 
02288200 
02788500 
02288800 
02289100 
02289400 
02289450 
02289500 


aa as ass ass a at a as st st HO 


“ 


VOHAAa Ho 


0202 
0202 
O?711 
0217 
0222 
0224 
0229 
0234 
0239 
0244 
0249 
0253 
0255 
0263 
0266 
0269 
0272 
0272 
0274 
0277 
0280 
0280 
0282 
0285 
0288 
0291 
0291 
0294 
0295 
0297 
0297 
0300 
0303 
0303 
0305 
0307 
0310 
0312 
0312 
0317 
0322 
0327 
0332 
0337 
0340 
0344 


0350 


0361 
0364 
0361 
0364 
0366 
0366 
0366 
0368 


Ce. 763 


Soe 


OQ 


PRT¢604) 


PRT(605) 


PRT¢606) 


PRT¢607) 


PRT(¢640) 


aT 


- 


"t 


UNPRINTFD © TRUES 
FNn DOLOPTS 


STREAM PROCFOURE NeWSEQctArB)s VALUE B3 
NEWSFQ 
BEGIN 
Sy} « LOC Be DI « A? OS « 8 DEC: 
END NEWSEQ!? 
INTEGER STREAM PROCEDURE SEQCHK¢(TsC)3 
SEQCHK 
BEGIN 
St« T3 Dy « C3 
1F 8 SC <¢ NC THEN TALLY ©« 4 ELSE 
BEGIN 
St « St = 83 DI * DI ™ 83 
1F 8 Sc =nc THEN TALLY « 2 
ELSE TALLY « 33 
END) 
SFOCHK « TALLY? 
END SEQCHK: 
BOOLEAN PROCEDURE READACARD; 
BEGIN _ 
NEFINE FLAGICFLAGI1) = BEGIN FLAGCFLAGI1)3 GO TO EWSASEND #3 


REAL STREAM PROCEDURE SCANINC¢ BUF eT Oe RESULT »NeM)3 
SCANINC 

VALUE BUF »MeNn3 

BEGIN 
LOCAL TA3 
LABEL LPeLQeXITi 
DI! ss RESULT? OT s= pI +73 
SI 3 BUF$ 

LP: IF SC = ™ " THEN BEGIN SI := SI + 13 GO TO LPs END3 


IF SC = ALPHA THEN ELSE BEGIN DSteLIT "41"3 DItsIDs DSteaLITons 


DS t= CHR3 DS $= SLIT" "3G0 To X1IT3 END3 
IF SC LSS "0" THEN DSt=LIT "2" ELSE DSt=SLIT "33 
N CDOIt#ID3 DSt=8 LIT "Oo "3 Dpranl=73 
7CIF SCSALPHA THEN DS*t=CHR ELSE JUMP OUT 2 TO XIT)3 
JUMP OUT TO X1IT)3 
M¢ 6 ¢€ IF SC LSS "O* THEN JUMP QUT 2 TO LQ; 
IF SC GTR "9" THEN JUMP OUT 2 TO LQ; 
SyesSpe1s TALLY te TALL yY4+1))3 
LQ: TA t= TALLY3 
St t= Sy = Ta3 
Dr te IDs 
pS t= TA OcT3 
X1T: ScANYNC ts S73 
END SCANYNC3 
REAL STREAM PROCEDURE MKABS¢S)3 
MKABS 
BEGIN SI %= Ss Sy t= Sy + 43 MKABS t= ST? ENDS 
STREAM PROCEDURE MOVECPe @)3 VA,UE a3 
MOVE 
BEGIN Sy « P?# DJ « Q3 DS «+ CHR3 
DI « P$ DS « LIT ™)%$ 
END MOVE3 


STREAM PROCEDURE MOVEC(C®BD5 VALUE B3 


2400" 
2400" 


Z400= 
%400e 
%400% 


78 1S 


02289600 
02289700 


375 LONG 


02317000 


02318000 
02319000 
02320000 
02321000 


02322000 
02323000 
02324000 
02325000 
02326000 
02327000 
02328000 
02329000 
02330000 
02331000 
02332000 
02333000 
02333050 


START OF SEGMENT 


02333100 


02333170 
02333140 
02333160 
02333180 
02333200 
02333210 
02333220 
02333240 
02333260 
02333270 
02333280 
02333300 
02333320 
02333360 
02333370 
02333380 
02333400 
02333420 
02333440 
02333460 
02333500 
02333520 
02333540 


02333550 
02334000 


02335000 
02336000 
02337000 
02337100 


Te ee ee ee 


At AHAAH AHH HAHAH 


AAA AH An AAR HAF A VO VAAN VO HH 


0370 
0372 


NEXT SEG 
0492 


0492 
0492 
0492 
0493 


0493 
0493 
0493 
0494 
0494 
0495 
0495 
0496 
0496 
0496 
0497 
0497 
0497 


ek RK Ok 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0002 
0004 
0006 
0007 
0010 
0012 
0013 
0016 
0017 
0018 
0019 
0019 
0020 
0020 
0021 
0022 


0022 
0024 


0024 
0025 
0026 
0026 


©) 


C) 


0) 


O 


PRTC611) 


PRTC612) 


PRT¢643) 


PRT(614) 


PRT¢615) 
PRT¢616) 
PRT¢(6497) 


PRT(620) 


ng uu 


MOVEC 


BEGIN 


St*R$ DI*C$ DS«CHRE ENDS 


BOOLEAN STREAM PROCEDURE GETCOL1 (BUF): 


GeETCcOLt 


BEGN 


END$ 


St « BUFS IF SC = "8" THEN TALLY « 13 
GFTCOL4 « TALLY 


STREAM PROCEDURE TSSFDITS(CsP)3 BEGIN SIeC3 NieP# DSe1 OWNS Syec 3 


TSSEDITS 


1F SCa'e" THEN BEGIN DieP? Dreprei13 OSe*LIT=" END ELSE 


1F SC#¥esg" THEN BEGIN St#S1453 TF SC#* * THEN TF SC#"0O" THEN BEGIN DtePs 
DSe6LT Tee 


" END END END OF TSSEDITS 3 


STREAM PROCEDURE MOVEWCFeT,Ber)3 VALUE Be R$ 


MOVEW 


BEGIN 


*LISTs LABEL, 
*LIST, LABEL, 
*LISTs LABEL, 


LABEL XIT3 
SI. « F3 DI ¢« T3 
BC 


2C40C IF SC = ,AuPHA THEN DS * CHR ELSE 


IF Sc = THEN DS « CHR ELSE 

IF Se = ner THEN BEGIN DS «© LIT "C3 SJ «© ST+4 END ELSE 
IF Sc = "C€" THEN BEGIN DS © LIT ")"3 SI «© SI+#4 END ELSE 
IF Sc = "#" THEN BEGIN DS « LIT "S"3 SJ] « S1+#4 END ELSE 
IF Sc = "&" THEN BEGIN DS «© LIT "4"3 Sf # SI#4 END ELSE 
IF Sc = "@" THEN BEGIN DS « LrT "3 St # SI+1 END ELSE 
IF Sc = "3" THEN BEGIN DS «© LIT "3 Sy « ST+41 END ELSE 
IF Sc = "<" THEN BEGIN DS # LIT 43 Sy «© SI+1 END ELSE 
IF Sc = ">" THEN BEGIN DS « LIT t="3 Sr «© St+t END ELSE 


DS « CHR 9)8 JUMP OUT TO X1T)3 
OR SEGMENT DESCRIPTOR* 

OR SEGMENT DESCRIPTOR* 

OR SEGMENT DES CMIRTOR® 

nS « 10 WpS3 


X1T?3 
SreLOC R3 SyoeSt+7? DreDrat 3 
DSeCHR 3 

END MOVEW? 


ALPHA STREAM PROCEDURE DCMOVEWCFsTeBeFILeRI$ VALUE BoFILeR3 


NCMOVEW 


BEGIN [.0CAL C$ LABEL LivsL2eL3-L4 3 


Steps DleTs oCSteS1+36 OSe36LIT" ™)3 CeST3 DSeS8CHR 3 
Sle).0c R$ SleS14+63 DS«2cHRs DreCs DSeBLIT™IMETALLY*333S1eF3 
IF sc = * " THEN %2% IT MIGHT BE A FILES CARD, 


ELSF 


ELSF 


ELSr 


BEGIN SleSI+43 IF SC="*F"* THEN 

BEGIN DleLoC FILS Ol*DI+2s IF SSc=sDC THEN 

BEGIN DieFs Ste*LOc Frtus Sl«S1+23 DS*#6CHR $ GO TO Li’ END 

FLSE SteF END ELSE Ster END 

1F Sc ="F" THEN BEGIN DI*LOC FILIDI*DI+231F 65SC=DC THEN GO Lt 
ELSE SIT«FS END 

IF SCattett THEN 

BFGIN &%% tT 1S A CONTINUATION CARD, 

SteSysi3 DreTi OSe6LyT" Le 

S¢rF Scs" * THEN SteS]41 FLSE JUMP OUT): GO TO L2 3 

END 

rr Sc="C" THEN 

BEGIN £2% 17 MIGHT BE A COMMENT CARD, 


02337200 
02338000 


02339000 
02340000 
02341000 
02342000 
02342010 


02342020 
023427030 
02342040 
02343000 


02344000 
02345000 
02346000 
02347000 
02348000 
02349000 
02350000 
02351000 
02352000 
02353000 
02354000 
02354100 
02355000 
02356000 
02357000 


02358000 
02359000 
02360000 
02361000 
02362000 
02362010 


02362020 
02362030 
02362033 
02362034 
02362035 
02362036 
02362037 
02362038 
02362040 
02362041 
02362042 
02362044 
02367050 
02362060 
02362063 
02362066 
02362070 


aAH4d4H += 


a4 4-4 


AA AAR HAHA SHH 


ee 


AA HHA HAHAHAHA HH 


0026 
0028 


0028 
0028 
0029 
0029 
0030 


0032 
0034 
0037 
0039 


0039 
0039 
0039 
0039 
0040 
0042 
0043 
0045 
0047 
0049 
0051 
0053 
0055 
0057 
0059 


0062 
0062 
0062 
0063 
0064 
0064 


0064 
0065 
0071 
0074 
0074 
0076 
0077 
0079 
0080 
0082 
0083 
0084 
0084 
0086 
0088 
0088 
0089 


‘e O O CO CO oe) 


QO 


Q 


Cc) 


PRT(621) 


PRT(622) 
PRT(693) 
PRT(624) 
PRT(625) 
PRT(626) 


PRT(627) 


PRT¢630) 


gnn uu 


i 4 


STACKCF 43) 
STACK(F +44) 


STACK¢F45) 


*xLIST»s 


SreSp+1% YF SC="=" THEN GO TO Lt ELSE SyerF 3 
END 3 


IF SsC#"S" THEN %2% 1T yS NOT A COMMENT CARDe NOR IS IT A $ CARD, 


BEGIN Z%% NOR A CONTINUATION CARD» NOR A FILES CARD, 
2¢33CIF Sca™ " THEN SIeSI#4 ELSE JUMP OUT 2 To L3))93 133 
ScIF Sce" " THEN SleSI+1 ELSE IF Sc2"o" THEN IF SC<"9N 
THEN DS*CHR ELSE JUMp OUT ELSE JUMP OUT) 3 
Dl«T; ODleDI+63 IF SCa" ™ THEN STeSI41 3 
END 
ELSE 
BEGIN 
Li: SteFs OfeT3s TALLY*«36 3 


LABEL, OR SEGMENT DESCRIPTOR* 


END 3 

L2: ¢C#TALLY 3 

BC2eccIF SC>">* THEN DS*CHR ELSF IF SC<"E" THEN DS*CHR ELSE 
1F SC="3" THEN BEGIN DSeLIT™C™$ SreSt+1 END ELSE 
TF SC="#" THEN BEGIN pSelLrTts"s SteSy+1 END FLSE 
1F SCe"at THEN BEGIN DSeLrTt+"s SpeSr+1 END ELSE 
1F SCa"@" THEN BEGIN DSeLIT™"s SypeSt+1 END ELSE 
1F SCa"s* THEN BEGIN DSeLyTe""s SpeSrei END ELSE 
TF SCet<" THEN BEGIN DSe#LrTY+"3s SypeSr+i END FLSE 
tr SC=t>" THEN BEGIN DSeLrTMa"s SreSt+1 END ELSE 
TF SC="c" THEN BEGIN DSeLrT#I"3 SyeSt41 END ELSE 


IF SC=seje THEN JUMP OUT 3 TO L4 ELSE DS*CHR))$4UUMP OUT To L4)3 


*L1ST» LABEL» OR SEGMENT DESCRIpPTOR* 
*LISTe LABELe OR SEGMENT DESCRIPTOR 
*LISTs LABEL, OR SEGMENT DESCRIpPTOR* 
*L USTs LABEL,» OR SEGMENT DESCRIPTOR* 
*LIST» LABELs OR SEGMENT DESCRIPTOR 
2cCcIF SC="J" THEN JUMP OUT 2 To L4 ELSE DS«CHR)) 3 
L4s OfeLOC DCMOVEWS DS+BLIT"00 "3; DieDI"6 3 
6CIF Scs")" THEN JUMP OUT ELSE OSeCHR) 3 
END OF DCMOVEW 3 
STREAM PROCEDURE SEQERR(BUFFs NEWe OLDS 


SEQERR 
BEGIN 
DY « BUFFS DS « 18 LyT "SEQUENCE FRROR "s 
St * NEWS DS © LITTNS 
DS * 8 CHRS DS «© LIT "HN 
p8 « 3 LIT" < "3 
St « OLD# DS « LIT Mer; 
DS « 8 CHRS DS © LIT "HN 
DS « 59 LiT * "3 
¢€ 


nS « 8 LIT "X"3 DS « 4 LIT " 
ENN SFQrRR3 
STREAM PROCEDURE DCMOVECE»CreAsN)? VALUE AaN3 
NCMOVE 
BEGIN SreC3 Dye? DSe#1 OWDS$ DSe ACHR? SteLOC A? DSe4DEC3 
N¢OSe8L IT" PATCH"); ENDS; 
REA), BUF ®ID3 


u 
_ 
i] 


Boor EAN NOWRT3 LABEL ENDPB, EABs 


il 
=z 
o 
= 
xa 
na 


LABEL LIBADD»s ENDPAs EAs Ede STRTAF 
LABFL FisE2sE3sSTRIsENDPeXITS 


02362080 
02362090 
02362100 
02367110 
02362120 
02362130 
02362140 
02362150 
02362160 
02362170 
02362180 
02362190 


02362200 
02362210 
02362220 
02362230 
02362235 
02362240 
02362245 
02362250 
02362255 
02362260 
02362265 
02362270 


02362275 
02362280 
02362285 
02362290 
02362300 


02362400 
02362450 
02362500 
02362550 
02362600 
02362650 
02362700 
02362750 
02362800 
02362850 
02362855 


02362860 
02362865 
02362900 
02362902 


02362950 
02363000 


AHHH HHH AHH AHH HAH HAHAH 


AA HAH AAA HAH 


aad 


0089 
0094 
0091 
00914 
0091 
0095 
0097 
0100 
0101 
0104 
0101 
0101 


0102 
0102 
0103 
0107 
0109 
O11 
0113 
0115 
0117 
0119 
0121 
0123 


0128 
0131 
0133 
0136 
0137 


0137 
0137 
0139 
0140 
0141 
0142 
0142 
0143 
0151 
0153 
0153 


0153 
0155 
0158 
0158 


0158 
0158 


©) 


© 


tts, 


oe © eee © ee 


j 


Oe MO VP. a 4. 


Gur ome 


C) 


PRT (631) 


LIBADN! 


XTA $= BLANKS? 
IF INSERTDEPTH = 1 THEN SAVECARD t= NEXTCARD3 
MOVE ¢CRDF91,BUFL)3 


TF CINSERTDEPTH t= INSFRTDFPTH #* 4) GTR INSERTMAX THEN 
FLAG?1(158)3 
NEWTPTOG t= FALSE 
INSERTINX t= 43 
INSERTCOP « 03 
BLANKITCSSNME5304.0)3 
BUF t= SCANINC (BUF, INSERTMIDeRESULT2#1.0)3 
IF RESULT = 4 AND INSERTMID = ‘t+ “THEN 
BEGIN BUF eSCANINC( BUF» TD»sRESULT9120)3 
IF 1D = "Copy " THEN INSERTCOP t= 14 
ELSE FLAGIC15593 
BUF«+SCANINC(BUF* INSERTMID*eRESULT*#12093 


END; 
IF RESULT NEQ 2 THEN FLAG! (€155)3 

BUF «+ SCANINCCBUF sIDsRESULT 2051493 2107= 
IF RESULT = 1 THEN TF ID = "/ * THEN 


BEGIN BUF © SCANINCCBUFsINSERTFID» RESULT 912003 
IF RESULT NE@ 2 THEN FLAGIC155)3 
BUF «© SCANINCCBUFs IDsRESULT» O01 )3 
FND ELSE INSERTFID ¢= TIMPCw1) ELSE INSERTFID t= TIMEC#1)3 
1fF RESULT = 3 THEN 
BEGIN NEWSEQCSSNME53970)3 
BUF « SCANINCCBUFeID RESULT +0013 
‘IF RESULT NEQ 1 THEN FLAGIC156)3 
IF mp = "j " THEN NEWSEQ ¢INSERTSFQ.99999999) x¥400= 
FLSE BEGIN ¥400" 
BUF « SCANINCC(BUFsID,RESULT+ 09493 
IF RESULT NEQ 3 THEN FLAGIC157)3 
NEWSEQ CINSERTSEQsID)3 
END %400" 
END ELSE IF ID = "] " THEN NEWSEQCINSERTSEQ299999999) 
FLSE FLAGIC157)3 
IF INSERTDEPTH > 6 THEN CLOSE CLF eRELEASED3 
FILL LF WITH INSERTMIDe INSERTFID? 
NO BEGIN 
READ CLFCINSERTINX © INSERTINX+1]¢140eDBC¥J)LE4]3 


END UNTIL SEQCHKCSSNM(53»DBL91) NEQ 33 
NFWTPTOG « BOOLEANCINSERTCOP)3 
IF NOT NEWTPTOG THEN 
BEGIN 
IF SEQTOG THEN 
BFGIN NEWSEOCCRDE9]*®SEQBASFE)$ MOVECCRDI9]>BUFL)3 
SEQBASE*SEQBASF+SEQINCR3 


ENDS MOVECCCRDE9]»BUFLDS 

IF LIBTAPr ANDCINSERTDEPTH = O ) THEN WRITECNEWTAPEs 10eCRDP¥])3 
FND} 7511 
tr LySTOG OR NOLIST THEN PRINTCARD} ; %5117 
NEXTCARDis73 


GO TO STRT3 


02363100 
02364000 


02364100 
02364130 
02364160 
02364240 
02364280 
02364300 
02364320 
02364330 
02364340 
02364350 
02364360 
02364380 
02364381 
02364382 
02364383 
02364384 
02364385 
02364386 
02364400 
02364420 
02364440 
02364460 
02364480 
02364500 
02364520 
02364540 
02364560 
02364580 
02364600 
02364605 
02364610 
02364620 
02364640 
02364660 
02364670 
02364680 
02364700 
02364720 
02364740 
02364760 
02364780 


02364800 
02364810 
02364811 
02364815 
02364820 
02364830 
02364840 
02364850 
02364860 
02364885 
02364890 
02364900 
02364910 


AAUVUAN NAH AHA HAH AA THO AAHMAHO OHA AWA AAR HAD Hs Ss ts 


0158 
0160 
0161 
0162 
0162 
0165 
0166 
0166 
0168 
0469 
0174 
0173 
0175 
0177 
01814 
0184 
0187 
0190 
0495 
0199 
0199 
02014 
0204 
0206 
0211 
0215 
0218 
0224 
0225 
02e7 
0230 
0232 
0235 
0239 
0242 
0244 
0246 
0246 
0249 
0254 
0257 
0263 
0263 


0272 
0275 
0278 
0279 
0280 
0280 
0283 
0285 
0286 
0294 
0292 
0295 
0296 


Cc) 


(} 


aA 


(> 


CG 


() 


PRT(632) 


PRT(633) 


a 


= Fy 


E43 


IF MENTO Anes THEN IF TAPETOG THEN 
EGIN 
NEXTCARD*53 READCTpP#10>TBE*¥J)£E2)3 Go To STRT 3 


END 
ELSE 
BEGIN 
NEXTCARD? 563 
IF GETCOLICCRDEO]) THEN BEGIN BUF s= MKABS(CRD(0])3 
BUF*SCANINC(BUFsTDeRESULTs12#0)3 IF ID NEQ@ INCLUDE 
THEN BLANKITCCRDe 99193 ENDS 
GO TO ENDP 3 
END 3 


NEXTCARD « 53 GO TO FNOP? 


IF vo 


EFaBs 


E43 


EQAs 


STRT? 
STRTA 


BEGIN 


1F NEXTCARDS5 THEN 
BEGIN 
NEXTCARD?=63 
1F GETCOLICCRDCO]) THEN BEGIN BUF t= MKABSC(CRD(OI)3 
BUF*SCANINCCBUFsIN»RESULTe1*O)5 IF 1D NEQ INCLUNE 
THEN BLANKITCCRD2904)3 FNDS 


END 
ELSE IF NEXTCARD#2 THEN NEXTCARDse1 ELSE 
BEGIN 
NEXTCARDe{3 TAPETOG*BOQLEANC2)3 READCCRetOeCBL*J)CE1)] 3 
END 3} 
IDTTOG THEN IF SEQCHKCCROEC9O]sVOIDTSEQ) < 4 Zii4e= 
THEN VOLDTTOGI=FALSE 41149 
ELSE BEGIN VOIDTTOG:=FALSE3 GO To STRT3 END3 41148 


GO To ENODP 3 

NOWRI #TRUES 

IF SEQTOG THEN NEWSEQCCRDI9]sSEQBASE)D} 

IF NEWTPTOG THEN IF TSSEDITOG THEN 

BEGIN TSSEDITSCCROsPRINTBUFF)3 WRITECNEWTAPE®10ePRINTBUFF(*I])3 

END ELSE WRITECNEWTAPEs10¢cRDC*])3 

CLOSE CLF,RELFASE)3 

NEWTPTOG#s SAVETOG3 . 

IF CINSERTDEPTH t= INSERIDEPTH * 1) = *4 THEN 
BEGIN NEXTCARD « SAVECARD? GO TO ENDPA? END 
ELSE NEWTPTOG « BOOLEANCINSERTCOP)3 

FILL LF WITH INSERTMrDeINSERTFID?3 

READCLFLINSERTINX %= TNSERTINX + £3010-DBr*I])rE4y3 

1F SEQCHKe rNSERTSEQeDBr9]) = 4 THEN GO TO E43 

GO TO ENDP3 


NEWTPTOGeSAVETQOG3 
IF CINSERTDEPTH t= INSERTDEPTH™1) = @¢ THEN NEXTCARD?SSAVECARD 
ESE NEWTpTOG «+ BOOLEANCINSERTCOP)S 


: 
IF NEXTCARD=6 THEN Go XIT 3 
CARDCOUNTeCARDCOUNT#; 3 
IF NEXTCARD = 1 THEN 
% CARD ONLY 
IFCNOT DCTNPUT OR TSSFDITOGJAND NOT FREEFTOG 
THEN MOVEWCCBeCRDsHOLTOGe IF DCINPUT THEN "D" FLSE "R) 
ELSE TF SSNME4SI*OCMOVENCCBeCRO®HOLTOGe"FILE “eI F FREEFTOG 


02365000 
02366000 
02367000 


02368000 
02369000 
02370000 
02371000 
02371002 
02371004 
02371006 
02371010 
02371020 
02372000 
02372010 
02372020 
02372030 
02372040 
02372050 
02372060 
02373000 
02373010 
02373020 
02373030 


02373040 
02373045 
02373100 
02373200 
02374000 
02374050 
02374053 
02374055 
02374060 
02374065 
02374190 
02374110 
02374150 
02374200 
02374300 
02374450 
02374470 
02374500 
02374520 
02374560 
02374580 
02374600 
02374680 
02375000 
02375600 
02376000 
02377000 
02378000 
02379000 
02380000 
02380100 
02380125 


44-4 


AHHH AHH HHH AHHH HATH AHA AA A HAA CA RAHA Ht tS nt st st tH 


0296 
0298 
0299 


0305 
0305 
0305 
0306 
0306 
0310 
0314 
0316 
0317 
0317 
0318 
0319 
0320 
0321 
0325 
0328 
0330 
0330 
0333 
0333 


0340 
0340 
0343 
0345 
0349 
0349 
0350 
0353 
0355 
0364 
0366 
0368 
0370 
0372 
0374 
0377 
0383 
0393 
0396 
0397 
0398 
0399 
0402 
0406 
0407 
0407 
0408 
0409 
0410 
0440 
0412 
0419 


Coe AG. 


O 


Oe toe “Ge oC) 


OY 


O 


CG 


N t& Ree SF ' ") Ly " 0 0 
BeGINeXTa«Ssnii¢ad 3° * Mae OS3n017> T O48 
MOVESEQCSSNMP4),LASTSEQ)§ MOVESEQCLASTSFQnCRDOI9I) 3 02380200 T 0430 
IF UrST0G THEN 02380210 T 0433 

BEGIN IF FYRSTCALL THEN DATIME 3 02380220 T 0434 

DCMOVECPRINTBUFF sCRD® CADR4+1).036%103,0)3 02380230 T 0436 

WRITAROWC14*PRINTBUFF)3 UNPRINTED*FALSE 3 02380240 T 0439 

END 3 02380250 T 0442 
FLOG¢149)3 MOVESEQCLASTSEQ,SSNMr4)) 3 02380300 T 0442 
END 3 ; 02380400 T 0444 

IF GETCOL+¢CRDL0)) THEN 02381000 T O444 
BEGIN 02382000 T 0446 
BUF t= MKABS¢CRD[O])3 02382200 T 0446 

BUF $= SCANINCCBUFeID*® RESULT +190)3 02382300 T 0448 

IF ID NEQ INCLUDE THEN 02382400 T 04514 
BEGIN 02382500 T 0452 
DOLOPT; 02383000 T 0453 

IF REALCTAPETOG)=3 THEN READCTP) 3 02383010 T 0453 
READCCRe 1 O*eCB(*¥])LE1I3 02384000 T 0458 

IF NOT TAPETOG THEN GO TO STRTS 02385000 T 0464 
READCTPs1O0eTBL*]) (E273 02386000 T 0464 
NEXTCARD « SEQCHKCTB9]s CRE9I)3 02387000 T 0470 

GO TO STRT3 02388000 T 0472 

END3 02389000 T 0477 
END: 02389100 T 0477 
te LISTPTOG THEN 02389200 T Q477 
BFGIN IF FIRSTCALL THEN DATIME3 02389300 T 0477 

IF SESTOG THEN NEWSEQCCRDE91,SEQBASE)3 02389400 T 0480 
DCMOVECPRINTBUFF sCRD»CADR4+1),£36210]91)3 02389500 T 0482 

WRITAROW €12,PRINTBUFF 23 UNPRINTED #8 FALSE3 02389600 T 0485 

END? 02389700 T 0488 
READ(CRe10-CBL*])rE41? 02390000 T 0488 

GO TO ENDP: 02391000 T 0494 

END; 02392000 T 0494 
IF NEXTCARD = 5 THEN 02393000 T 0494 
BEGIN 02394000 T 0495 
MOVEWCTBaCRDeHOLTOGr"T") 3 ; : 02395000 T 0495 
READCTPs 10° TBLa])(Eo]3 02396000 T 0499 

IF VOIDTTOG THEN IF SEQCHKCCROLC9]»VOIDTSEQ) < 4 THEN 02396100 T 0504 
VOTDTTOG « FALSE ELSE Go TO STRT3 02396200 T 0507 

GO TO ENDP3 02397000 T 0510 

END; 02398000 T 0510 
IF NEXTCARD < 3 THEN 02399000 T 0510 
BEGIN % CARD OVER TAPE 02400000 T O511 
IFCNOT NDCINPUT OR TSSENITOGIAND NOT FREEFTOG 02401000 T 0511 

THEN MOVEWCCBsCROsHOLTOGsIF DCINPUT THEN "Dp" ELSE "R™) 02401100 T 0513 

ELSE IF SSNME4]*DCMOVEWCCB,CRDeHOLTOGs"FILE "“stF FREEFTOG 02401125 T 0520 

THEN " R® FLSE * pr) gt " THEN 02401150 T 0526 

BEGIN XTA«SSNM[4) 3 02401175 T 0529 
MOVESEQCSSNMr4),LASTSEQ)3 MOVESEQCLASTSEQeCRDL9]) 3 02401200 T 0531 

IF L1STOG THEN 02401210 T 0534 

BEGIN IF FFRSTCALL THEN DATIME 3 02401220 T 0535 
DCMOVECPRINTBUFF sCRDe CADR+1)2,036210},993 02401230 T 0537 
WRITAROWCLiePRINTBUFF 2S UNPRINTED*FALSE 3& 02401240 T 0540 

END 3 02404250 T 0543 

FLOGC¢149)3 MOVESFQCLASTSEQs,SSNMf4)) 3 02401300 T 0543 

END 3 02401400 T 0545 


QO © 


O 


Os GF oo 


e 


IF NEXTCARD =2 THEN READCTP*10+TBE*])PE273 02402000 T 0545 

IF GETCOL1¢CRD) THEN 02403000 T 0552 

BEGIN 02404000 T 0553 

BUF t= MKABSCCRD([0O))3 02404200 T 0554 

BUF t= SCANINCCBUF®IDsRESULT+420)93 02404300 T 0556 

IF 1D NEQ@ INCLUDE THEN 02404400 T 0559 

BEGIN 02404500 T 0560 

DOLOPTS 02405000 T 0560 

READCCRe 10sCBL*J)£E3)3 02406000 T 0561 

PRT(634) = £3 

NEXTCARD « SEQCHK¢CTBr9}* CRL9I)3 02407000 T 0566 

GO TO STRT3 02408000 T 0568 

F3% NEXTCARD+53 G0 TO STRT3 02408500 T 0574 

END} 02409000 T 0575 

END3 02409100 T 0575 

IF LISTPTOG THEN 02409200 T 0575 

BFGIN IF FIRSTCALL THEN DATIME3 02409300 T 0576 

IF SESTOG THEN NeWSEQCCRDL9],SEOBASE)3 02409400 T 0578 

DCMOVECPRINTBUFF,CRD,CADR+1).£36210]01)3 02409500 T 0580 

WRITAROW (C1 ?ePRINTBUFF IS UNPRINTED t= FALSE 02409600 T 0583 

END3 02409700 T 0587 

READCCRe10eCBL*))fE173 02410000 T 0587 

NEXTCARD « SEQCHKC(TBL9]* CBL9I)3 02411000 T 0592 

_ GO To ENDPS 02412000 T 0594 

END; 02413000 T 0595 

% TAPE BEFORE CaRD 02414000 T 0595 

IF NEXTCARD = 7 THEN 02414100 T 0595 

BEGIN 02414150 T 0596 

IFCNOT DCINPUT OR TSSEDITOG)AND NOT FREEFTOG 02414175 T 0596 

THEN MOVEWCDBsCRDsHOLTOGs"L") ELSE IF XTAeDCMOVEWCDBeCRD» 02414200 T 0598 

HOLTOGe"FILE “,IF FREEFTOG THEN ® R® ELSE * Oty 02414225 T 0607 

" " THEN FLOGC149)3 02414250 T 0610 

IF GETCOLACCRDLOJ) THEN 02414260 T 0613 

BEGIN 02414270 T 0614 

BUF t= MKABSC(CRDE0O])3 02414280 T 0615 

BUF t= SCANINCCBUFe IDpRESULT 942003 02444290 T 0617 

IF 1D = INCLUDE THEN GO TO LIBADD? 02414300 T 0620 

END3 02414310 T 0621 

RFADCLFLINSERTINXe INSERTINX+4]910.,0BC¥*]) LE4B]3 02414370 T 0621 
PRT¢(635) . 

IF SEQCHKCINSERTSFQsnBr9]) = 4 THEN GO TO EAB; 02414380 T 0634 

IF GETCOLICCRDLO]) THEN BEGIN DOLOPT? GO TO STRT# ENDS 02414382 T 0635 

GO TO ENDP} 02414390 T 0642 

ENDs 02414400 T 0642 

MOVEWCTBeCRDesHOLTOGe TH") 3 02415000 T 0642 

READCTPe10eTBL¥) )fE273 02416000 T 0645 

IF VOIDTTOG THEN IF SEQCHK¢CRDOE9JsVOIDTSEQ) < 4 THEN 02416100 T 0651 

VOTOTTOG!=FALSE ELSE BEGIN NEXTCARD?=SEQCHK(TB(9]*CBI9])3 02416200 P 0654 

GO To STRT$ END; 114" 02416300 C 0659 

NEXTCARD «+ SEQCHKCTBL9]* CBL9I)3 02417000 T 0660 

ENDp? 02418000 T 0662 

IF NEXTCARD NEQ 7 THEN 02418100 T 0663 

IF VOIDTOG THEN IF SEQCHKCCROL9]»VOIDSEQ) < 4 THEN 02419000 T 0663 

VOIDTOG t= FALSE ELSE gO TO STRT} 02419050 T 0668 

IF GETCOLICCRD£O}) THEN 02419100 T 0670 

BEGIN 02419150 T 0671 

BUF %= MKABSCCRDLOI)3 02419200 T 0672 


Oy <i WO. sO 


Cr Or <r 3, 3G) 


ENDS 


FNnPAS 


To i120) 
LIBADD FLSE GO TO STRT3 


SFQERRORS 3s FALSE 
TF NEXTCARD = 7 THEN 
BEGIN MOVESEQ¢(LASTSFQsCRD69]23 GO TO ENDPA3 END3 
IF CHECKTOG AND SEQGERRCT=0 THEN SFQERRCT+1 3 
IF CHECKTOG THEN IF SEQCHK¢(LASTSEQ,CRNE9})=3 THEN 
BEGIN 
SEQERRCERRORBUFF eCRDEOI]sLASTSEQ) 3 
MOVESEQCLASTSEQeCRDL9I)) 3 
IF SEQTOG THEN 
BEGIN NEWSEQC(CCRDL9OI] sSEQBASE)3SEQBASE*SEQBASE+SEQINCR END3 
MOVESEQCLINKLISTeCRDLE9) 93 
MOVECCRDE(9]sBUFL) 3 
SEQERRCT+*SEQERRCT+1 3 
SEQERRORS+«TRUE 3 
IF NOT LISTOG THEN PRINTCARD $ 
END 
ELSE MOVESEQCLASTSEQsCRDI9]) ELSE MOVEFSEQCLASTSEQ*scRD[9]) 3 


IF SEQTOG THEN 

BEGIN 
NEWSESCCRDLIT+SEQBASF)} 
SFQBASE « SFQBASE + SEQINCR3 
FNDS 


IF NOWRt THEN GO TO ENDPB? 
IF NEWTPTOG THEN IF TSSEDITOG THEN BEGIN TSSEDITSCCRD>sPRINTBUFF) 3 
WRITE CNEWTAPE s10e+PRINTBUFF(*}]) END ELSE WRITECNEWTAPE s10-eCRDO(¥*])- 3 


ENDPB? 


IF NoT SEQERRORS THEN 
BFGIN 
MOVESEQCLINKLISTeCRDI9I) 3 
MOVECCROE9IseBUFL) 3 


END 3 
NCR « INETIALNCRS 
READACARD « TRUE 


X1T? 


SEGSWFIXED « TRUE 3 

REMFrXe pe TRUE 3 

IF TSSENITOG THEN WARNED+«TRUE & 

TF LerSTOG AND FrRSTCALL THEN DATIMES 

1F SrGSW THEN %4%% ENTER SEQ# AND ADR TO LINESEG ARRAY, 
BEGIN IF LASTADDR#ADR THEN BEGIN NOLIN*NOLIN¢e13 LASTADDRe ADR ENDS 
LINESEGINOLINe IR»eNOLINe fC J@0 & DaBcLASTSEQ) (10820228) & CADR+3) 
[38236240] 3 


EnD 


e 
$ 


END READACARD; 


80 IS 


02419250 
02419300 
02419325 
02420000 
02420010 
02420011 
02420015 
02420020 
02420030 
02420040 
02420050 
02420053 
02420057 
02420060 
02420070 
02420080 
02420090 
02420100 
02420110 
02420120 
02420150 
02420200 
02420250 
02420300 
02420350 
02420400 
02420450 
02420500 
02420550 
02421000 
02422000 
02423000 
02424000 
02425000 
02425100 
02426000 
02426005 
02426008 
02426010 
02426020 
02426030 
02426040 
02427000 
02428000 
02429000 
02430000 
02431000 
02431005 
02431100 
02432000 
02432100 
02432200 
02432300 
02432400 
02432500 
02433000 


761 LONG 


T 
T 
T 
T 
T 
T 
ic 
T 
T 
T 
T 
T 
T 
T 
T 
L 
T 
T 
T 
T 
7 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
7, 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
ip 
T 
T 
T 
T 
T 
a 


0674 
0677 


0679 
0679 
0680 
0684 
0684 
0687 
0690 
0691 
0693 
0694 
0695 
0698 
0700 
0701 
0702 
0704 
0706 
0706 
0710 
0710 
0710 
0710 
0710 
0710 
0710 
0710 
0710 
0711 
0711 
0712 
0713 
0714 
0714 
0715 
0719 
0728 
0729 
0730 
07390 
0732 
0733 
0733 
0734 
0734 
0735 
0736 
0738 
0741 
0744 
0745 
0748 
0754 
0755 
0755 
NEXT SEG 


6 


a INTEGER STREAM PROCEDURE CONVERTCNUB®SIZE»PeCHAR)$ VALUE P3 02434000 T 0497 
Vo) CONVERT 
BEGIN 02435000 T 0497 
ms LOCAL Ts 02436000 T 0498 
SI ¢ P3 02437000 T 0498 
BCIF SC < "O" THEN JUMP OUT? 02438000 T 0498 
= SI « St + 43 TALLY « TALLY + 193 02439000 T 0499 
a) CONVERT « SI3 02440000 T 0501 
D1 * CHAR$3 DS « 7 LIT "03 DS «© CHR} 02441000 T 0501 
x T « TALLY3 02442000 T 0503 
St * P3 Dr « NUB? DS «+ T OcT3 02443000 T 0503 
Dr * SIZE 5 St © LOC Ts DS ¢ WDS3 02444000 T 0504 
an END CONVERTS 02445000 T 0505 
a PROCEDURE SCANS 02446000 T 0506 
BEGIN . 02447000 T 0506 
& BOOLFAN STREAM PROCEDURE ANVANCFCNCR»s ACR» CHARs NCRVs ACRVI3 02448000 Tt 0506 
= START OF SEGMENT #4 eo Ro Ke 81 
PRT¢637) = ADVANCE 
ue VALUE NCRV, ACRVs CHAR} 02449000 T 0000 
BEGIN LABEL LOOPS 02450000 T 0000 
LABE!, DIGs ALPHe BKie BKoa» SpECS 02451000 T 0000 
_ DI « ACRV3 02452000 T 0000 
Ly SI « CHAR} SI # ST+83 02453000 T 0000 
IF Sc # " © THEN 02454000 T 0000 
2 Ir SC 2 "O" THEN BEGIN SI « NCRV? GO TO BKi END ELSE 02455000 T 0001 
ei BEGIN SI « NCRV3 GO TO BK2 END; 02456000 T 0003 
SI « NCRV$ 02457000 T 0004 
‘ LOOP 02458000 T 0004 
S IF Sc = " " THEN BEGIN SI*SI+13 GO TO LOOP END3 02459000 T 0004 
IF Se 2 "0" THEN 02460000 T 0006 
k BEGIN 02461000 T 0007 
S DrG? DS © CHR3 02462000 T 0007 
BKi: IF SC = ™ ™ THEN BFGIN Sr © SI+#13 GO TO BK1i END3 02463000 T 0008 
= Ip Sc 2 "0" THEN GO TO nit 02464000 T O010 
) GO TO SPFC3 02465000 T 0011 
ENDS 02466000 T O011 
as IF Se = ALPHA THEN 02467000 T 0014 
a, BEGIN 02468000 T 0012 
ALPH?t DS «© CHR} 02469000 T 0012 
ss BK2s 1F SC = " " THEN BrarN St « St+i# GO TO BK2 END: 02470000 T 0013 
~) te SC = ALPHA THEN GO TO ALPH} 02471000 T 0015 
ENDS 02472000 T 0016 
- SPEC} 02473000 T- 0046 
‘Ss ACRV « DI 02474000 T 0016 
DS « 6 LIT * "3 02475000 T 0017 
- IF Sc = "]" THEN 02476000 T 00148 
BEGIN TALLY « 13 ST «© Loc ACRV3 02477000 T 0018 
Dry « ACRS DS « WDS; 02478000 T 0019 
at Dr « CHARS DS « LIT "33 02479000 T 0020 
Ly END FLSF 02480000 T 0021 
BEGIN DI « CHAR: DS « CHR3 02481000 T 0021 
ACRV « ST3 St « LOC ACRV3 02482000 T 0021 
oO Dr « NCR? DS «+ WDS} 02483000 T 0022 
ENDS 02484000 T 0022 
2: ADVANCE © TALLY: 02485000 T 0022 
C FND ADVANCES 02486000 T 0023 
BOOLFAN PROCEDURE CONTINUES 02487000 T 0024 
Oo 


C) 


PRT(640) 


PRT¢641) 


PRT(642) 


PRT(643) 


PRTC644) 


fl 


CONTINUE 
BEG 
LAB 


B00 
CONTYN 
BEG 
THE 
Boo 
COMNT 
BEG 


END 
B00 
NCCONTIN 
BEG 


END 
L.00 


END 


PRO 
SCANX 


BEG 


tN 
FL LOOP; 


LEAN STREAM PROCEDURE CONTyNecp)3 


IN Spe#CD$ TF SC#"C™ THEN TF SC#"S" THEN BEGIN SleS1+53 


N IF SC#"0" THEN BEGIN TALiYe1s CONTINe TALLY END END END OF CONTIN 


LEAN STREAM PROCEDURE ComMNTCCDsT)s VALUE T 3 
IN LABEL L 3} 

SI « CD$ IF SC = "C" THEN BEGIN TCSI*SI443 

ELSE JUMP OUT To L)s TALLY#13 Le END3 
COMNT? 

LEAN STREAM PROCEDURE DCCONTINECD)? 


COMNT*TALLY 3 


IN 
SI « CDs IF SC = "=" THEN TALLY « 13 
DCCONTIN « TALLY3 
DCCONTINS 
Pt IF NOTCCONTINUE ¢ 
IFCOCINPUT AND NOT TSSEDITOGJOR FREEFTOG THEN 
IF NEXTCARD < 4 THEN pCCONTIN(¢CB) 


IF SC#n 


IF SCo"=" THEN TALLYet 


ELSE IF NEXTCARD = 7 THEN DCCONTINCDBIELSE CONTINCTBD 


ELSE IF NEXTCARD = 7 THEN CONTINCDB) 
ELSE IF NEXTCARD < 4 THEN CONTIN¢CB) ELSE 
CONTINCTB)) THEN 

IFCTF NEXTCARD « 4 THEN 


COMNT¢CBs(DCINPUT AND NOT TSSEDITOG) OR FREEFTOG) 


ELSE IF NEXTCARD = 7 THEN 


COMNTCDB+CDCINPUT AND NOT TSSEDITOG) oR FREEFTO0G) 


ELSE COMNTCTB®0) AND NEXTCARD # 6) THEN 
BEGIN 
IF READACARD THEN 1F LISTOG THEN PRINTCARD;3 
GO TO LOOP: 
ENDS 
CONTINUES 


CEDURE SCANXCEOF1* EOF2s E0Sis EF0S2» OK1i» OK2)3 


VALUF EOF 1» EOF2s EOSt» EQS2* OKi» OK23 
INTEGER EOFL» EOF2, EOSts FOS2s OKit1» OK2} 
IN LABEL LOOP» LooPO 3 

LOOPQ3 

EXACCUMr1] « BLANKS} 

ACR « ACRYL 

LOOP: 


IF AnVANCECNCRe ACR» CHR» NeR» acR) THEN 
te CONTINUE THEN 


TF REAMACARD THEN 
BEGIN 
IF LISTOG THEN PRINTCARD 3 
IF ACR,C33415]2EXACCUMSTOP THEN 


BEGIN XTA*BLANKS$ FLOG(175)3 GO LoOPO END } 


GO LOOP 3 


° 
, 


02487200 
02487400 


START OF SEGMENT 


02487600 


02488000 
02489000 
02489200 


02489400 
02489600 
02490000 
02490200 
02490400 


02490500 
02490600 
02491000 
02491200 
02491400 
02491600 
02491650 
02491700 
02491800 
02492000 
02492200 
02492400 
02492450 
02492500 
02492550 
02492600 
02493000 
02493200 
02493400 
02493600 
02494000 


59 LONG 


02495000 


02496000 
02497000 
02498000 


START OF SEGMENT 


02498100 
02499000 
02500000 
02501000 
02502000 
02503000 
02504000 
02505000 
02506000 
02506040 
02506020 
02506030 
02506040 


T 
T 


OK Ok 


T 


“44-1 


Asso 


H™= AMAA HHA HHH a sy + 


0024 
0024 


0000 


0000 
0002 
0005 


0006 
0006 
0009 
0011 
0012 


0012 
0013 
0014 
0014 
0015 
0016 
0019 
0021 
0026 
0030 
0034 
0036 
0038 
0041 
0044 
0048 
0052 
0053 
0055 
0056 
0056 — 
NEXT SE 
0024 


0024 
0024 
0024 


Terr res 2 


0000 
0000 
0001 
0002 
0002 
0004 
0005 
0005 
0006 
0006 
0008 
0009 
0012 


82 


81 


83 


C) 


C) 


END 
ELSE SEN « IF EXACCUME1] = BLANKS THEN EOF!1 ELSE EoF2 
ELSE SCN « IF EXACCUM[1} = BLANKS THFN EOS1 ELSE EF0S2 
ELSE SCN « IF EXACCUMEL] = BLANKS THEN OK1 ELSE OK2;3 
END SCANX3 


DEFINE cHAR = ACCUMLEOI43 
DEFINE T=SYMBOL#S 
INTEGER NB 


STACK(F42) = N 


PRT¢645) 


PRT(646) 


PRT(647) 


PRT¢(650) 


PRT¢651) 


PRTC652) 


a 


BOOLEAN STREAM PROCEDURE CHECKEXPCNCR» NCRV, A$ VALUE NCRVS 
CHECKEXP 
BEGIN 
St «+ NecRV3 
1F Sc = "*" THEN 
BEGIN Dt « AS Dr «© Dr#2s DS « 2 LIT "HS Sy « Speeds NORV « Sy} 
TALLY # 13 CHECKEXP « TALLY? 
Sy} #« LOC NCRVS DI «© NCR$ DS « WDOS END3 
END CHECKEXP3 
PROCEDURE CHECKRESERVED; 
CHECKRESERVEN 
BEGIN LABEL RESWDe XITs FOUND?» FOUND2s DONES 


BOOLEAN STREAM PROCEDURE COMPLETECHECK(CAsBeN)3 
COMPLETECHECK 
BEGIN LABEL L $3 
ST*as SleSt"23 DileBs NCIF Sc#DC THEN JUMP OUT TO L2? TALLY«43 
L3 cOMPLETECHECK*TALLY 3 
END OF COMPLETFCHECK 3 
STREAM PROCEDURE XFERCFROM, Tie T2e Ne M)? VALUE FROM» No M3 


VALUE N 3 


XFER ; 
BEGIN St « FROM$ Dr « Ti! pT « pye23 
DS « M CHR} 
Sf @# FROM3 Sy « Sy4N} 
DI « T23 DI « Dy+A3 
DS « 6 CHR} 
FND XFFR3 
. STREAM PROCEDURE XFERACFROMs NEXT1»s NEXT2)3 
XFERA 


VALUF FROMS 
BEGIN Sr « FROM} Sy « SI+6} 
DI] « NEXTG3 DI « D142} 
5¢IF Sc 2 "0" THEN DS « CHR ELSE JUMP OUT): 
S] « Ste} 
DI + NEXT23 DI « DI+a3 
6CIF SC = ALPHA THEN DS « CHR ELSE JUMP OUT)3 
END XFERAS 
BOOLEAN STREAM PROCEDURE CHECKFUNCFROMs TOO+ N93 VALUE FROMs N3 
CHECKFUN 
BEGIN St « FROM$ S] # SI + N3 
IF Se = "O" THEN 
BEGIN SI! ¢ SI+13 
Ip Sc = "N*® THEN 
BEGIN SI «© Sy+is3 TALLY « 43 
O1 © TOOS DI «+ DI+23 
DS * 6 CHR} 
END3 


83 15S 


02506050 
02507000 
02508000 
02509000 
02510000 


24 LONG 


02511000 
02512000 
02513000 


02514000 


02515000 
02516000 
02517000 
02518000 
02519000 
02520000 
02521000 
02522000 


02523000 


START OF SEGMENT 


02523100 


02523200 
02523300 
02523400 
02523500 
02524000 


02525000 
02526000 
02527000 
02528000 
02529000 
02530000 
02531000 


02532000 
02533000 
02534000 
02535000 
02536000 
02537000 
02538000 
02539000 
02540000 


02541000 
02542000 
02543000 
02544000 
02545000 
02546000 
02547000 
02548000 


at 


i 


AA AHHH 


T 


0012 
0012 
0015 
0019 
0023 
NEXT SEG 
0024 
0024 
0024 


0024 


0024 
0024 
0024 
0024 
0026 
0027 
0028 
0029 


0029 


OR ORO OK ok 


T 


44-444 


AA AHH HH SHS 


AAA HaAAH 


0000 


0000 
0000 
0003 
0004 
0005 


0005 
0006 
0007 
0008 
0008 
0008 
0009 


0009 
0009 
0009 
0010 
0012 
0012 
0012 
0015 
0015 


0015 
0016 
0017 
0018 
0018 
0019 
0020 
0020 


81 


84 


() 


PRT¢( 6539 


—~ 


STACK (CF 42) 
STACK ¢F4+3) 


STACK CF 44) 


ENDS 
CHECKFUN « TALLY$ 


FND CHERKFUNS 

BOOLEAN STREAM PROCEDURE MORETHAN6(P)3 
MORFTHAN6 

BEGIN Sy « P3 


IF Sc # " " THEN TALLY ¢« 43 
MORETHAN6 « TALLY3 


END MORETHANG63 
INTEGER 13 ALPHA ID3 


I 
1D 


INTEGER STOR 3 


STOR 


IF ACCUME1)] = " " THEN 

BEGIN XTA « CHARS FLOG(16)3 GO To XIT END3 

IF CHAR = "= "OR CHAR = "# " THEN GO TO XIT3 

IF CHAR & "Me " THEN GO TO XIT3 

IF CHAR # "€ * AND CHAR # "2 " THEN GO TO RESWD? 

1F MORETHAN6CACCUME2)) THEN GO TO RESWD? 

COMMENT AT THIS POINT WE HAVE <1D> € , 

THES MUST BE ONE OF THE FOLLOWING 

ASSTGNEMNT STATEMENT WITH SUBSCRIPTED VARTABLE AT THE LEFT, 
STATEMENT FUNCTION DECLARATION, 


CALLe REAL» ENTRY» GO TOe READse WRITEs FORMAT, ie DATA» CHAINs PRINT OR 


PUNCH? 
IF | « SEARCHeT) > O THEN 
IF GETC1),CLASS = ARRAYID THEN GO To XIT3 
ID « T3 ID, £36%¢2]7 « * 3 
FoR feo THRU RSP Do IF RESERVEDWORDSLPCIIJ=ID THEN IF CIF STorR 
*RESLENGTHLPCIJ"4<1 THEN TRUE ELSE COMPLETECHECKCACCUME 2] 2 
RESFERVEDWORDSLPEI+RSP1]*°STORI) THEN GO FOUND! 3; 
GO To XIT3 
FOUNnI# 
NEXT « LPGLOBALCEII3 
Tew "y 
XFERCACRO»® Te NEXTACC® I*RESLENGTHLPEI J» IF I> 6 THEN 6 FLSE 193 
GO To DONE3 
RESWH! 
COMMENT AT THIS POINT WE KNOW THE <ID> MUST BE A SPECIAL WORD 
TO IMENTIFY THE STATEMENT TYPE} 
ID + T3 10,f363142] « * 3 
IF T = "ASSIGN" THEN 
BEGIN 
NEXTSCN © SCN3 SCN © 143 
NEXTACC « NEXTACC2 « " " 
XFERACACRO» NEXTACC® NEXTACC2)3 
NeXT «© 13 
G0 TO XIT3 
END: 
FOR tet THRU RSH DO IF RESERVEDWORDSECIJ=1D THEN IF CIF STORe 
RES) ENGTHelj=4e1 THEN TRUE ELSE COMPLETECHECK ¢ACCUMl 2] *RESERVEDWORDS 
CI+RSHiJeIF STOR>8 THEN 8 ELSE STOR)? THEN GO FOUND2 3 
XTA « TS FLOGC16)3 GO To XIT3 
FOUND?! 
NEXT @ f+#13 


Ter i 


02549000 
02550000 
02551000 
02552000 


02553000 
02554000 
02555000 
02556000 
02557000 


02557100 


02558000 
02559000 
02560000 
02560100 
02561000 
02562000 
02563000 
02564000 
02565000 
02566000 
02567000 
025677100 
02568000 
02569000 
02570000 
02571000 
02571100 
02572000 
02573000 
02574000 
02575000 
02576000 
02577000 
02578000 
02579000 
02580000 
02581000 
02582000 
02583000 
02584000 
02585000 
02586000 
02587000 
02588000 
02589000 
02590000 
02591000 
02591100 
02592000 
02593000 
02594000 
02595000 
02596000 


Se ee 


_ 


AA AHHH HUH HHA AAA HA AH AH A At st HAHA st 


0020 
0020 
0020 
0024 


0024 
0022 
0023 
0023 
0024 


0024 


0024 
0026 
0030 
0033 
0034 
0037 
0039 
0039 
0039 
0039 
0039 
0039 
0039 
0041 
0044 
0046 
0055 
0060 
0064 
0065 
0065 
0066 
0066 
0071 
0073 
0073 
0073 
0073 
0075 
0076 
0076 
0076 
0079 
0080 
0061 
0085 
0085 
0087 
0092 
0098 
0100 
0101 
0102 


O 


O 


XFERCACROe Te NEXTACC® LeRESLENGTH Cl)» IF I> 6 THEN 6 ELSE 193 
DONE: NEXTSCN « SCN} 
SCN « 63 
IF NEXTACC = “FUNCTI"™ THEN 
IF CHECKFUNCACRO» NEXTACCs 14+6) THEN SCN © 133 

KIT? : 
FOSTOG*FALSES 

END CHECKRESERVED: 

. BOOLEAN PROCEDURE CHECKOCTAL3 
PRT¢654) = CHECKOCTAL 

BEGIN 

INTEGER Se T3 LABEL XIT3 


STACKOF43) 5 § 
STACK¢(F44) 3 T 


INTEGER STREAM PROCEDURE COUNTCACRV,T)3 
PRT¢655) = COUNT 


VALUE ACRVsT 3} 


BEGIn 
LOCA, AsB3 SI¢LOC T3 SI*«SI+7 3 
IF Scsq" THEN BEGIN SI*ACRVSIF SC="O" THEN SI*#SIl4+1 END ELSE SI«ACRV3 
IF Sc#" * THEN 
BEGIN ASI 3 
17CIF SC>"7" THEN BEGIN TALLY«173 JUMP OUT END ELSE IF SC<"0" THEN 
BFGIN IF SC#" * THEN TALLY«173 JUMP OUT ENDS SI«SI+43 
TALLY*TALLY+1) 3 


BeTALLY3 SreLOCc B$ Sl«SI+7 3 
le Scstt+e"” THEN BEGIN SteA$ IF Sc>"3" THEN TALLY«17 END3 
END 3 


COUNT*+TALLY 3 
END OF COUNT 3 
ALPHA STREAM PROCEDURE CONVCACRVe Se T)% VALUE ACRVs Se T3 
PRT¢(656) = CONV 
BEGIN Sy # ACRV3 IF SC = "O" THEN St © SJ4i3 
NY * LOC CONV SKIP S OR3 
TOSKyP 3 SBI 3¢1F SB THEN nS «© SFT ELSE DS « RESETS SKIP 1 S$B))3 
END CONY3 
IF Te.COUNTCACRO,.1) = O THEN 
BEGIN S « 43 
IF T « CHAR # "4+ " AND T # 8 THEN 
Ir T = "te " THEN S « =4 E,,SE GO To XIT3 
SCANX(4* 49 3» 3% 10% 1093 
If SCN # 10 THEN GO TO XIT3 
IF TeCOUNTCACRI#2) = 0 OR T > 16 THEN GO TO XIT 3 
FNEXT © CONVCACRie (16"T)x39 T)3 
Ip S < 0 THEN FNEXT «+ @FNEXT3 
END ELSE IF T < 17 THEN FNEXT#*CONVCACRO*(16=T)x3eT) ELSE GO TO XIT 3 
CHECKOCTAL «© TRUE? 


NEXT « NUM3 
NUMTYPF « REALTYPE3 
XITs 


END CHECKOCTAL3 


PROCEDURE HOLLERITHS 
PRT(657) = HOLLERITH 
BEGIN 
REAL Te COLL» T2» ENDP3 


84 75S 


START OF SEGMENT 


85 1S 


02597000 T 0103 
02598000 T 0107 
02599000 T 0108 
02600000 T 0109 
02601000 T 0110 
02602000 T 0114 
02603000 T 0115 
02604000 T O4115 
120 LONGs NEXT SEG 
02605000 T 0029 
02606000 T 0029 
02607000 T 0029 
OK AOR KK Oak 
02608000 T 0000 
02609000 T 0000 
02610000 T 0000 
02611000 T 0000 
02612000 T 0003 
02613000 T 0003 
02614000 T 0004 
02614010 T 0006 
02614015 T 0009 
02614020 T 0010 
02614030 T 0010 
02614040 T 0012 
02614050 T 0012 
02614060 T 0013 
02615000 T 0oO01414 
02616000 T 0014 
02617000 T O0%5 
02618000 T 0015 
02619000 T 0019 
02620000 T 0020 
02620100 T 0024 
02620200 T 0025 
02621000 T 0027 
02621100 T 0030 
02622000 T 0032 
02622100 T 0033 
02622200 T 0038 
02623000 T O041 
02623100 T 0044 
02624000 T 0052 
02625000 T 0053 
02626000 T 0054 
02627000 T 0054 
02628000 T 0055 
58 LONGs NEXT SEG 
02629000 T 0029 
02630000 T 0029 
02631000 T 0029 


81 


85 


81 


Oy > 3c sO) «@ 


Ci 


lam 


ro, 


{) 


© 


O 


Cs 


STACK(CF42) 
STACK(F +3) 
STACK (CF 44) 
STACK EF 45) 


PRT¢660) 


PRT¢661) 


a 


RSTORE 


LABE|, X1T3 
INTERER STREAM PROCEDURE STRCNT(SeDseSZ)3 VALUE SeSZ} 


BEGIN & 

St + S3} Dy «+ DIDS « B LIT "00 "3 DI « D3 
DY « DS Dt «© DI + 23 DS «SZ CHR3 STRCNT ¢« S13 
END STRCNT3 

INTEGER STREAM PROCEDURE RSTORECS# De SKPsSZ)3 


VALUE Se SKP» $2Z3 
BEGYN 
Dr « D3 
St « S3 Dt «DI + SKPS OS «+ SZ CHR} RSTORE « S13 
FND RSTORE? 
Fio« FNEXT3 
NUMTYPE «© STRINGTYPES 
T «© O & NCRE30233845) & NCREG5S23083)73 
COLL « O & INITIALNCRE30833%15)3 
ENDP + cOL1 + 723 
STRINGSIZE « O38 
WHiLe F{ 70 90 
BEGIN 
To . TF F1 > 6 THEN 6 ELSE FY 
IF STRINGSIZE > MAXSTRING THEN 
BEGIN FLAGC1209% STRINGSIZE « O END? 
IF T+T2> ENDP THEN IF DCINPUT oR FREEFTOG THEN 
BEGIN XTA+#BLANKS3 FLOGC150)3 GO To XIT END 
ELSE BEGIN 


IF TSSEDITOG THEN IF NOT DCINPUT THEN TSSEDCBLANKS#1) 3 
NER « STRCNTCNCRe STRINGARRAYESTRINGSIZE]* ENDP#T)3 


IF NOT CONTINUE THEN 


BEGIN FLOG(43)3 GO TO XIT FND? 
IF READACARD THEN} 
te LISTOG THEN PRINTCARD} 


NeR « RSTORECNCRsSTRINGARRAYESTRINGSIZEJ] sENDP@T+2eT2™(ENDPRT) D3 


STRINGSIZE © STRINGSIZE413 
Fi « F1 = T23 
T+ COLL + 6 + T2 © ¢CENDP = T)3 
END FLSE 
BEGIN 
NcR « STRCNTCNCRe STRINGARRAYFSTRINGSIZEJs T2)3 
STRINGSIZE « STRINGSIZE +13 


Tie T +123 
Fi « Fi = T23 
ENDS ; 
ENDS 
NUMTYPE « STRINGTYPE? 
SCN « $3 
XjT3 


END HOLLERITHS 


START OF SFGMENT 


86 IS 


02632000 
02633000 


02634000 
02635000 
02636000 
02637000 
02638000 


02639000 
02640000 
02641000 
02642000 
02643000 
02644000 
02645000 
02646000 
02647000 
02648000 
02649000 
02650000 
02651000 
02652000 
02653000 
02654000 
02655000 
02655500 
02656000 
02656100 
02657000 
02658000 
02659000 
02660000 
02661000 
02662000 
02663000 
02664000 
02665000 
02666000 
02667000 
02668000 
02669000 
02670000 
02671000 
02672000 
02673000 
02674000 
02675000 
02676000 
02677000 
02678000 


63 LONG 


SO RIOR KOK 


44 


Aaa a4 


THAAD HHH HAHAH RH HHA HA A HH tt A 


0000 
0000 


0000 
0000 
0002 
0003 
0004 


0004 
0004 
0005 
0005 
0006 
0007 
0008 
0009 
0012 
0014 
0015 
0016 
0017 
0017 
0020 
0020 
0022 
0026 
0028 
0029 
0033 
0036 
0036 
0036 
0038 
0039 
0041 
0046 
0047 
0048 
0051 
0051 
0051 
0054 
0055 
0056 
0058 
0058 
0058 
0059 
0060 
0060 
NEXT SEG 


86 


81 


O OC) OC) eS 


(} 


on 
aa 


PROCEDURE QUOTESTRINGS 
PRT€662) = QUOTFSTRING 
BEGIN 02680000 T 0029 


02679000 T 0029 


() 


REAL C3 


02681000 


START OF SFGMENT 


T 


0029 


ek AO KK ak 


87 


C) 


STACK (F42) 
LABEL X1T3 02682000 T 0000 
ALPHA STREAM PROCEDURE STRINGWORDCS+DeSKPsSZ9C)3 02683000 T 0000 

STRINGHORD 

VALUF S,sSKPsSZ3 02684000 T 0000 
BEGIN 02685000 T 0000 
LABEL QT, XIT3 02686000 T 0000 
Dr « OF Sy « SI 02687000 T 0000 
Dy « DI+SKP? Dt « Di4ni 02688000 T 0000 
TALLY « SKP3 02689000 T 0004 
S7¢ IF SC = """ THEN UUMP OUT To @T3 02690000 T 0002 
IF SC = "3 THEN JUMP OUT To aT; 02691000 T 0004 
IF SC = *@" THEN JUMP OUT To QT3 02692000 T 0005 
IF SC = "J" THEN JUMP OUT To XIT3 02693000 T 0006 
DS « GHR: TALLY « TALLY+193 02694000 T 0007 
Go To XIT3 02695000 T 0007 
QTs TALLY © TALLY4+73 SI « SI+#43 02696000 T 0008 
X1Ts STRINGWORD « SI} S « TALLY? 02697000 T 0008 
St *« LOC Si DI * C# DS « WDS;3 02698000 T 0009 
END STRINGWORDS 02699000 T 0010 
STRINGSIZE «+ 03 02700000 T 0044 
no 02701000 T 0012 
BEGIN 02702000 T 0013 
fp STRINGSIZF > MAXSTRING THEN 02703000 T 00143 
BEGIN FLAGC12093 STRINGSIZE « O END}? 02704000 T 0013 
STRENGARRAYESTRINGSIZE] « BLANKS3 02705000 T 0015 
NeR « STRINGWORDCNCRs STRINGARRAYESTRINGSIZE]*® O» 6% C33 02706000 T 0017 
Ip C<6 THEN TF DCINPUT OR FREEFTOG 02707000 T 0020 
THEN BEGIN XTA*BLANKSS FLOGC150)#% GO TO XIT END 02707500 T 0022 
FLSF BEGIN 02708000 T 0025 
te TSSEDTTOG THEN IF NOT DCINPUT THEN TSSEDCBLANKSe1) 3 02708100 T 0026 
IF NOT CONTINUE THEN 02709000 T 0029 
02710000 T 0030 
BEGIN FLOG(121)2* GO TO XIT END3 02711000 T 0030 
IF READACARD THEN}: 02712000 T 0032 
IF LISTOG THEN PRINTCARD3 02713000 T 0033 
NCR * STRINGWORDCNCRe STRINGARRAYESTRINGSIZE JsCo6=CeC)3 02714000 T. 0035 
END? 02715000 T 0038 
STRINGSIZE « STRINGSIZE + 43 02716000 T 0038 
END UNTIL C 2 73 02717000 T 0039 
IF C = 7 THEN STRINGSIZE #« STRINGSIZE*13 02718000 T 0041 
FNEXT « STRINGSIZE? 02719000 T 0043 
NEXT «# NUM3 . 02720000 T 0044 
SYMBOL « NAME « STRINGARRAYCO]3 02721000 T 0045 
NUMTYPE « STRINGTYPES 02722000 T 0046 
SCN « 13 02723000 T 0047 
XIT# 02724000 T 0048 
END QUOTESTRING 02725000 T 0048 


87 1S 51 LONGe NEXT SEG 81 
PROCEDURE CHECKPERIODS 02726000 T 0029 
PRT(664) = CHECKPERTOD 


BEGIN ; 02727000 T 0029 


an 
eee 


STACK¢F+2) 
STACK¢F +3) 
STACKCF +4) 
STACK¢F45) 


STACKCF +6) 
STACKCF +7) 


iad i 


a 


aH 


a- 4NV 


CON 


LABEL FRACTION» X1T» EXPONENT.» FXPONENTSIGN3 


LABEL NUMFINIs FPLPs CHKEXP: 
ALPHA Sp Ts Ie TS3 


INTEGER C23 
BOOLFAN CON? 
IF T « CHAR # ", " THEN GO TO CHKEXP3 


SCANXC4s Ge 3p Be 108 1193 
IF T «© EXACCUMEIJ = * " THEN 


“BEGIN IF NUMTYPE # DOUBTYPe THEN NUMTYPE « REALTYPE? GO TO XIT END3 
" THEN GO TO EXPONENTSIGN3 


IF T = "EF " OR T = "pH 
1F T'f12'6) $ 9 THEN GO TO FRACTYON3 
IF Tlp4836) < 9 THEN 
BEGIN 
Ie S « T,012367 # "E™ AND S # "D" THEN 
BEGIN XTA « TS FLOG(63)% GO TO XIT END} 
EXACCUME1I,£1216] «+ OF 
t « 13 GO TO EXPONENTS 
END} 
IF EXACCUMrPO] # ™, " THEN GO TO XIT3 
FOR 1 « O STEP 4 UNTIL 10 nO 
If T = PERITODWORDECI] THEN 


BEGIN EXACCUME2] « 13 SCN «© {93 GO To XIT END} 


GO To XIT3 
FRACTIONS NEXT « NUM} 
IF NUMTYPE #DOUBTYPE THEN NUMTYPE « REALTYPE3 
FPLPs 
Fi «+ 03 
XTA © CONVERTCE1eCisXTA aTS)3 
C2,¢ C2 + Cis 
IF (r2 « FNEXTXTENCCiJ+F1) $ MAX 
THEN FNEXT © F2 
ELSr BEGIN 
NUMTYPE « DOUBTYPEF? 
CON «+ TRUES 


NOUBLECFNEXTsDBLOWs TENE CLI» TENLE694C1) 9X» 


FisQe+e@oFNEXTepBLOW) 3 
END3 
TF 78 $ 9 THEN GO TO FPLP3 
Fi « O3 
1F T © FXACCUMEO] # NE | 
BEGIN IF SCN = 8 THEN SCN « 3 ELSE SCN « 403 
GO TO NUMFING? 
END3 
CHKEXPt FNEXT « FNEXT x 4,03 
Fi +0} 
I «+ 43 
SCANXC4s 4s 39 38 20» 10)3 
IF ScN = 20 THEN 
EXPONENTSIGN? 
BEGIN Ff S © EXACCUMEO) # t4 


XTA « ACRI3 


" AND T # "D " THEN 


" AND S # "8 


02728000 


START OF SEGMENT 


02729000 
02730000 


02730050 
02730100 


02731000 
02732000 
02733000 
02733500 
02734000 
02735000 
02736000 
02737000 
02738000 
02739000 
02740000 
02741000 
02742000 
02743000 
02744000 
02745000 
02746000 
02747000 
02748000 
02749000 
02750000 
02751000 
02752000 
02753000 
02754000 
02755000 
02756000 
02757000 
02757100 
02758000 
02759000 
02760000 
02761000 
02762000 
02763000 
02764000 
02765000 
02766000 
02767000 
02768000 
02769000 
02770000 
02771000 
02772000 
02773000 


T 


TET TTT ETT 


T 
T 


— 


= 


AR MMM MAA HH HHH HAH HA A A A A A a A i 


0029 


0000 
0000 


0000 
0000 


0000 
0002 
0004 
0005 
0011 
0013 
0015 
0016 
0017 
0019 
0025 
0027 
0028 
0028 
0030 
0032 
0033 
0038 
0038 
0039 
0042 
0043 
0043 
0046 
0047 
0049 
0050 
0052 
0052 
0053 
0056 
0057 
0057 
0059 
0059 


0062 


0068 
0069 
0069 
0071 
0072 
0072 
0074 
0075 
0076 


Cs 


C) 


CG 


O 


PRT(665) 


PRT¢666) 
PRT (667) 


CASE 


CASES 
CASE1 


FS 5 "es " THEN 1 «# #1 ELSE 
BEGIN XTA © S$ FLOGC63)3 SCN + 10% GO TO XIT ENDS 
SCANXC4s 4e 32 32 10, 10)3 
END3 
IF ¢(S «© EXACCUMrF13),£1236)] > 9 THEN 


BEGIN XTA « IF § # BLANKS THEN S ELSE T3 FLOGC(63)3 GO TO XIT END3 


EXPONENTS 
1F NUMTYPE # DOUBTYPE THEN NUMTYPE « REALTYPE? 
1F Tef1286) = "D" THEN NUMTYPF « DOUBTYPES 
TF SeN = 8 THEN SCN + 3 ELSE IF SCN & 11 THEN SCN © 103 
XTA « ACRG 
XTA @ CONVERTCF1eCieXTA 2 TS23 
IF 1 < O THEN Fa «© =F43 
NUMF ENTS 
Ci «+ Fy = Ca} 


IF f « CABSCCLF+CFNEXTe £386]8FNEXT£E{32941)92) > 63 ORCCABS(CL) = 


FNEXT 2 5) AND ABSCF1) 2 69) 
THEN BEGIN XTA «© T3 FLOG(87)93 Go TO XIT$3 ENDS 
IF NUMTYPE # DOUBTYPE THEN 
BEGIN : 

IF C12 0 THEN FNEXT « FNEXT x TENEC1] 

ELSE FNEXT « FNEXT / TENE C113 

END FLSE 
REGIN 

Ip ci 2 0 


IT OR 


THEN DOUBLECFNEXTsDBLOWs TENIC1 Je TENLCG9+4C1 1 9XseeFNEXTeDBLOW) 
FLSE DOUBLECFNEXTsDBLOWs TENC@CLIpTENL69"Cilo/eeeFNEXT sp DBLOW)? 


If CON THEN 1F DBLOW,£9833) = MAX.£9%33] THEN 
TF FNEXT, £34967 LSS 14 
THEN TF BOOLEANCFNEXT.£2%13) THEN 


BEGIN DBLOW #= O% FNEXT t3 FNEXT + £&FNEXTE 2928733 END 


END: 
XET? 
FND CHFEKPFRIONS 


LABEL LOOPO, NUMBER 3 

LABEL LsXtTs 

LABEL LisbL?eL3eL4 rl SeL6eb7oLOeL Fo LiOoLileLireli seb ideliSeLi6elile 

L¢BbebLi9eh20eLaieBK 3 

SWITCH CASELeEL1 *L2eL3eLaeL5eLeeL7 LALO LiOeLiteLi2eLi3zeLideb15» 
Li6sLI7eLIB*LIDeLeneLai 3 

LABEL LoOPs CASESTMT3 

LABEL CASEO*CASELACASE2 CASES 2 CASE4 sCASES eCASEG6RPCASET} 

LABEL CASEBPCASE9SCASE10#CASE11+CASEL29CASE139CASE143 

PREC#NEXT*FNEXT*#REALCSCANENTER*FALSE) $ 

CASESTMT? 

CASE SCN OF 

BEGIN | 

STATEMENT DESCRIPTOR* 
CASFOS — 
G0 TO Yr LABELR THEN CASES ELSE CASF13 


CASELS 
BEGIN 
LOOPO$ 
ACR « ACRO} 


4994" 
4994 
4994" 


Z994~ 


88 1S 


02774000 
02775000 
02776000 
02777000 
02778000 
02778100 
02779000 
02779500 
02780000 
02781000 
02782000 
02783000 
02784000 
02785000 
02786000 
02787000 
02787500 
02788000 
02789000 
02790000 
02791000 
02792000 
02793000 
02794000 
02795000 
02796000 
02797000 
02797100 
02797150 
02797200 
02797300 
02798000 
02799000 
02800000 


153 LONG 


02801000 
02802000 
02802100 
02802200 
02802300 
02802400 
02803000 
02803100 
02803200 
02804000 
02805000 
02806000 
02807000 


02807999 
02808000 


02809000 
02810000 
02810100 
02811000 


AAAHHOO VHA Asse HHH HAHAHAHA ARS HH tt HA A tt IH 


ao 


Anas 


0078 
0081 
0088 
0090 
0090 
0092 
0097 
0098 
0100 
0102 
0407 
0107 
0110 
0112 
0113 
0114 
0118 
0120 
0123 
0124 
0125 
0126 
0130 
0130 
0130 
0130 
0135 
0139 
0142 
0143 
0145 
0148 
0148 
04149 
NEXT SEG 
0029 
0029 
0029 
0029 
0029 
0031 
0042 
0042 
0042 
0042 
0045 
0046 
0046 


0046 
0047 


0052 
0053 
0053 
0053 


81 


©) 


O © 


GF x) 


(5, sO. 


“, 


C) 


e) 


'e 


ACCUME1] « BLANKS$ 
LOOP s 


IF AMVANCECNCRe ACR» CHROs NCRe ACR) THEN 
IF CONTINUE THEN 


% 
IF READACARD THEN 
BEGIN 
IF LISTOG THEN PRINTCARD 3 
IF ACR,C33%15]2ACCUMSTOP THEN 
BEGIN XTA*BLANKS$ FLOGC(175)3 GO LOOPO END 3 
GO LOOP 3; 
END 
FLSE JF T + ACCUMr1)] = " " THEN GO TO CASES ELSE SCN « 4 
FLSE IF T * acCUME1) = " THEN 
GO TO cASE3 ELSE SCN © 3 
ELSE fF T + ACCUMF1) = " THEN GO TO CASE2 ELSE SCN © 23 
END} 
CASE2t 
BEGIN T « CHARS SCN « 4 END3 
CASE 33 


BEGIN T « 3 "3 NEXT « SEMI3 SCN « 03 
tr FOSTOG THEN TF LOGItFTOG THEN BEGIN LOGIFTOG « FALSE? 
FLAGC194)3 ENDS 


Gn To XIT3 
END} 
CASEA! 
BEGIN T « "3 "s NEXT «© SEmMIs SCn «+ 53 Go To XIT END; 
CASES? 


BEGIN T # "<EOF> "3 NEXT © EOFS EQSTOG «© FALSE GO To XIT END3 
CASE6E 
BEGIN T « ACCUME1 J + NEXTACCS SCN #* NEXTSCNS 
IF 7 = " THEN GO TO CASESTMT3 
END} 
CASET3 
BEGIN FOSTOG + TRUE: 
IF LABELR THEN GO TO CASES ELSE GO TO CASE13 
END3 
CASEBt 
BEGIN T #* FXACCUME1]3 SCN « 3 END? 
CASES! 
BEGIN T « FXACCUMEC1]3 SCN « 4 END 
CASE1L08 . 
BEGIN T « CHAR «© EXACCUMEO]3 SCN « 4 END? 
CASF113 
BEGIN T « FXACCUMG133 SCN « 10 ENDS 
CASE123 
BEGIN T « EXACCUME{]3 SCN « 43 
IF N « EXACCUME9] € 1 THEN 
BEGIn NEXT «» NUM$ FNEXT «© né GO TO XIT END? 
NEXT « O3 
OP « Nw4q3 
PREC « IF N € 4 THEN N@q ELSE 43 
GO To XIT3 
END; 
CASE133 
BEGIN T * “"FUNCTI"3; NEXT © 463 SCN « 63 GO TO XIT END? 
CASEL43 


XTA ¢ TB 


2994" 


£9948 


z2994= 


x994" 
%994= 
Z99Ke 
¥994e 


X99K@ 


4994" 


%994m 


02812000 
028613000 


02814000 
02815000 
02816000 
02817000 
02818000 
02818010 
02818020 
02818030 
02818040 
02818050 
02819000 
02820000 
02821000 
02822000 
02823000 
02824000 
02825000 
02826000 
02827000 
02827100 
02827200 
02827300 
02827400 
02827999 
02828000 
02829000 
02830000 
02830999 
02831000 
02832000 
02833000 
02833999 
02834000 
02835000 
02836000 
02836999 
02837000 
02837999 
02838000 
02838999 
02839000 
02839999 
02840000 
02840999 
02841000 
02842000 
02843000 
02844000 
02845000 
02846000 
02847000 
02848000 
02848999 
02849000 
02849999 


OANMKH AH AHAAHA BHO HOH AO HO AAO HHO AAO HHA AH HA tH HA St tH St ts 


0053 
0055 


0055 
0057 
0058 
0058 
0059 
0059 
0064 
0062 
0065 
0065 
0065 
0068 
0072 
0073 
0078 
0079 
0080 
0082 
0083 
0085 
0089 
0090 
0093 
0093 
0094 
0098 
0099 
0103 
0104 
0106 
0107 
0108 
0109 
0109 
O1tt 
O11! 
0112 
0114 
0115 
0117 
0118 
0121 
0122 
0124 
0125 
0126 
0128 
0132 
0132 
0134 
0137 
0137 
0138 
0139 
0143 


Ce Oe oe © oe © ee ae © me ee © me 


O 


O 


OF <O- “& 


O 


a 


BEGIN T * ACCUME1] «© NEXTACC3 
NEXTaCC © NEXTACC23 SCN « 63 


FNDS 


END OF CASE STATEMENT? 


1F NOT FILFTOG THEN 
1F EOSTOG THEN 


BrGrN 
NEXT « O3 
FT s "3 " THEN GO TO CASESTMT3 
CHECKRE SERVED; 
IF NEXT > 0 THEN GO TO XIT3 
EnO3s 


IF CIDINFO«TIPECTs©12%631)>0 THEN 


BEGIN 
BKt NEXT«ID $ 


IF wOT FILETOG THEN 


GO XIT 3 


END 3 


GO CASELEMIDINFO): 
ZDIGITS 


Lis 


BEGIN NUMTYPE « INTYPES 
FNEXT « DBLOW « C1 « 03 
XTA © CONVERTCFNEXTsCieXTA pTS)3 
WHILE TS €¢ 9 DO 


BrGtN 
XTA 
tr CF2 «© FNEXTXTENCCiJeF 1) S$ MAX 

THEN FNEXT « F? 


2 SEE INITIALIZATION OF "TIPE™s 


NEXT « NUMS XTA « ACRO$ 


¢ CONVERTCF1+C1,XTA »TS)3 


ELSE BEGIN 
NUMTYPE « DOUBTYPES 


DOUBLE CFNEXT pDBLOWsTENEC1 J» TENE69HCY J exe 


FieOet+eeeFNEXT eDBLOW)3 


"OR CHAR = "D 


END? 
EnD3 

IF CHAR = ", "OR CHAR = "E 

CHECKPERIOD 

ELSE IF CHAR = "H " THEN HOLLERITH3 

GO To XIT3 
ENDS 
L23 > 
BEGIN PREC + 43 OP « 73 GO TO XIT END? 
L3% 2 
BEGIN PREC « 43 OP « 83 GO TO X1IT END? 
L43: 8 OR + 
BEGIN Prec « 53 OP «+ 103 NEXT « PLUS; 


L5t 
BEGIN 


* 


GO TO XIT END} 


FNEXT « DBLOW « C1 « O3 NUMTYPE «© REALTYPES 
CHECKPFRIOD? 
T # FXACCUM(1]3 


IF ScN 


12 THEN 


BEGIN SCN « 13 
IF N « FXACCUME2) $ 1 THEN 


IF SCANENTER@CCFNEXT+SEARCH(T) 250) THEN FNEXT¢ENTERCIDINFG OST) 
ELSE UF GETCFNEXT)«CLASS=DUMMY THEN FNEXT«GETCFNEXT+2)eBASE 3 


LINE 03433100%9938 


4993 


49930 
%993e 
%993" 


x993= 


START OF SEGMENT 


02850000 T 0144 
02851000 T 0445 
02852000 T 0147 
02853000 T 0147 
Bok IO HOO 
16 LONGs NEXT SEG 
02854000 T 0148 
02855000 T 0148 
02856000 T 0149 
02857000 T 0150 
02858000 T 03450 
02859000 T 01452 
02860000 T 01452 
02861000 T 0153 
02862000 T 0153 
02862100 T 0155 
02862200 T 0156 
02862300 T 0157 
02862400 T 0158 
02862500 T 0162 
02862600 T 0169 
02862700 T 0170 
02862800 P 0170 
02863000 P 0172 
02864000 T 0173 
02865000 T 0175 
02866000 T 0177 
02867000 T 0179 
02868000 T 01814 
02869000 T 0181 
02870000 T 0184 
02871000 T 0186 
02872000 T 0387 
02873000 T 0388 
02874000 T 0189 
02875000 T 0191 
02876000 T 0193 
02877000 T 0193 
02878000 T 0193 
02879000 T 0197 
02883000 T 0197 
02884000 T 0204 
02885000 T 0206 
02898100 P 0206 
02899000 T 0206 
02899100 P 0208 
02900000 T 0708 
02900100 P 0210 
02901000 T 0210 
02910100 P 0212 
02911000 T 0213 
02912000 T 0213 
02913000 T 0215 
02914000 T 0216 
02915000 T 0217 
02916000 T 0217 
02947000 T 0219 


89 
81 


c 


Cj 


C) CO 


GO “Oy 4 Oe or sr. se °@ 


O 


“s\ 


VU 


C) 


BEGIN 
NEXT «© NUMS FNEXT « Ni 
NUMTYPE «© LOGTYPE? Go To XIT3 
ENDS 
NEXT « 0} 
OP «© Nee 
PREC « IF N $ & THEN N™{ ELSE 43 
GO To X1T3 
ENDS. 
IF NeXT # NUM THEN BEGIN NEXT «© NUM$ XTA 
GO To X1T3 
END} 
L6:  & BOR ¢ 
BEGIN NeXT « LPAREN3 GO TO XIT FND3 
L7s %«< 
BEGIN Prec «© OP «© 43 GO TO XIT END3 
L83 % LETTER O 
BEGIN Yr DATATOG THEN IF CHECKOCTAL THEN GO 
IMINFO*TIPEL12]3 GO BK 3 
FNp} 
L93  & 
BEGIN NeXT « DOLLAR? GO TO XIT FND3 
L103 % * 
IF CHECKEXP¢NCRs NCRe T) THEN 
BEGIN PREC « 9% OP « 453 NEXT « UPARROW: GO 


¢ Ts FLOGC141) END} 


TO XIT3 


To XIT END ELSE 
X1T END3 


Lids 

BEGIN PREC « 73 OP « 433 NEXT « STAR! GO TO 

Li2i ad 

BEGIN PREC « 5% OP « 413 NEXT « MINUS} GO To XIT END$ 

L1i3! %)o0R eC 

BEGIN NEXT « RPARENS GO TO XIT END} 

L143 % 3 

BEGIN NeXT «© SEMIS GO TO XT FND? 

Li58 %< 

BEGIN Prec « 43 OP «+ 53 GO TO XyT END; 

L163 % / 

ee Prec «© 73 OP «© 143 NEXT © SLASH? GO TO XIT ENDS 
17 a) 

BEGIN NeXT «© COMMA; GO TO XIT ENDS 

L183 fox 

BEGIN Prec « 43 OP « 93 GO TO X1T ENDS 

L193 _ % = OR + OR # 

BEGIN NeXT «© FOUAL; GO TO XIT ENDS 

L203  & i 

BEGIN XTA « Ts FLAGCO)3 GO TO CASESTMT END} 

L248 %¥" OR } OR @- 

BEGIN QUOTESTRING? GO TO XrT FND3 

X1T3 


1F DEBUGTOG THEN WRITALIST¢FD,3,NEXTo TT," 


XTA « NAME « T3 
END SCAN} 


PROCEDURE WRAPUP3$ 


WRAPUP 


COMMENT WRAPUP OF COMPYLIATION: 
BEGIN 


%50202020,0) 3 


4993" 
4993 


49930 


¥993= 


%¥993= 


4993 
4993 
4993" 
4993" 
%993= 
%993= 
4993 
4993" 
%993- 


¥993e 


81 1S 


02948000 
02949000 
02920000 
02921000 
02922000 
02923000 
02924000 
02924100 
02925000 
02925100 
02926000 
02927000 
02929100 
02930000 
02930100 
02931000 
02938100 
02939000 
02939100 
02939200 
02942100 
02943000 
02943100 
02944000 
02945000 
02945100 
02946000 
02946100 
02947000 
02947100 
02946000 
02948100 
02949000 
02949100 
02950000 
02951100 
02952000 
02960100 
02961000 
02962100 
02963000 
02963100 
02964000 
02964100 
02965000 
029651400 
02966000 
02971000 
02972000 
02973000 
02974000 
02975000 

285 LONG, 
02976000 T 


AAA AAA DA DH UHV AV VHA UHH HHA DHA A A A tt HS 


02977000 T 
02978000 T 


0220 
0221 
0222 
0223 
0223 
0224 
0225 
0229 
0229 
0229 
0233 
0233 
0233 
0234 
0235 
0236 
0237 
0238 
0240 
0242 
0242 
0242 
0243 
0244 
0245 
0249 
0250 
0252 
0253 
0255 
0256 
0257 
0258 
0259 
0260 
0262 
0262 
0264 
0265 
0266 
0267 
0269 
0269 
0270 
0271 
0273 
0273 
0274 
0274 
0278 
0278 
0279 
NEXT SEG 
0506 


0506 
0506 


6 


o—~ 
yi 


(3 


Cy 


C) 


Ce 9 


Q 


i GE A 


Oe 3a. 


OC 


@ 


O 


ARRAY PRYCO#t7+O8127] 0 02979000 T 0506 
START OF SEGMENT *# ee Ka eK 90 
STACK¢F42) = PRT 
. SEGDICTIO87,08427]1» 02980000 T 0002 
STACKEF43) = SEGNICT 
SEe0f032913 02981000 T 0004 
STACKCF44) = SEGO 
ARRAY FYLESFOLBIGGESTFILENBI]? 02982000 T 0005 
STACK¢F45) = FILES 
INTEGER THEBIGGESTS 02983000 T 0007 
STACK(F 46) = THEBIGGEST 
SAVE ARRAY FPBLO0!1022]3 % FILE PARAMETER BLOCK 02984000 T 0007 
STACKCF #7) = FPB 
REAL FPSsFPE3 % START AND END OF FPB 02985000 T 0009 
STACK(CF4+10) = FPS 
STACK(CF4119 = FPE 
REAL GSFGsPRIeFIDeMFID»>IONMeFILTYPeFPBI3 02986000 T 0009 
STACKCF +12) = GSEG 
STACK(F413) = PRI 
STACKCF 414) = FID 
STACK(F4+15) = MFID 
STACK¢CF416) = TDNM 
STACK¢F 417) = FILTYP 
STACK¢F 420) = FPBI 
BOOLEAN ALF? 02987000 T 0009 
STACK¢ F421) = ALF 
REAL PRTADRs SEGMNT» LNKe TSEGSZe Tte Ie FPBSZ? 02988000 T 0009 
STACK¢F 422) = PRTANR 
STACK¢ F423) = SFGMNT 
STACK¢F424) = LNK 
STACK¢F425) = TSEGSZ 
STACK¢ F426) = Ty 
STACK¢F427) = I 
STACK¢F #30) = FpPBSZ 
DEFINE 02988900 T 0009 
SPDEUNS FpBSZi#e 02988910 T 0009 
ENDDEFs#3 02988990 T 0009 
ARRAY InNTLOC(O#150]3 02989000 T 0009 
STACKCF4+31) = INTLOC 
REAL J3 02990000 T 0011 
STACK¢(F 432) = 
FORMAT SEGUSCA6s “* YS SEGMENT > Ide 02991000 T 0011 
START OF SEGMENT 0% 4k eK & 91 
PRT¢671) = SFGUS 
", PRT TS "np Ade ,%)3 02992000 T 0011 
91 IS 12 LONGse NEXT SEG 90 
LIST SEGLSCIONMsNXAVILeT1)3 02993000 T 0011 
PRT¢672) = *LIST, LABEL, OR SEGMENT DESCRIPTOR* 
STACK¢F433) = SFGLS 
LABEL Las FNDWRAPUP3 02997000 T 0019 
LABEL Q@Q@QnISKNEFAULT; ¥503* 02997010 ¢ 0019 
COMMENT FORMAT OF SEGMENT DICTIONARY RUN TIME $ 02998000 T 0019 
ner tNe SGTYPFs £132)#2 20 = PROGRAM SEGMENTS 02999000 T 0019 
SGTYPCs 1346%2%,%) = MCP INTRINSIC 03000000 T 0019 
Zo = DATA SEGMENT 03001000 T 0019 
PRTLINKF= (£8:140)#, % LINK TO FLIRT PRT ENTRY 03002000 T 0019 
PRTLINKC= 88382408» 03003000 T 0019 


‘ 
© 
= 


© 


PRT(673) 


PRT¢674) 


SGLCF = C18¢15]#» % SEGMENT SIZE 

SGLCC = 2335383108» 

DKADRF = €33215]4#*2 %2 RELATIVE DISK ADDRESS OF SEGMENT 
% OR MCP INTRINSIC NUMBER 

DKADRC = 3381381583 


COMMENT FORMAT OF FIRST SEGMENT OF CONDE FILE= RUN TIME3 


COMMENT SEGOLO0#29] 


DEFINE 


DEFINE 


WORD CONTENTS 

LOCATION OF SEGMENT DICTIONARY 
SIZE OF SEGMENT DICTIONARY 
LOCATION OF PRT 

SIZE OF PRT 

LOCATION OF FILE PARAMETER BLOCK 
SIZE OF FIle PARAMETER BLOCK 
STARTING SEGMENT NUMBER 
7-C281] IND FORTRAN FAULT DEC 

77618245] NuMBRR OF FILES 

77033815] CORE RrQUIREN/64 


Wut whe © 


s 
COMMENT FORMAT OF PRr3 


FLGF = £04) = 4101 = SET BY STREAM 

MODEF =(4t2]#, % O = THUNK 

MODEC=4246%2#, % 1 = WORD MODE PROGRAM DESCRIPTOR 
29 = LABEL DESCRIPTOR 


3 = CHARACTER MODE PROGRAM DESCRIPTOR 
STOPPER = 1 FOR LAST DESCRIPTOR IN 
CHAIN OF SAME SEGMENT DESCRIPTORS 
LINKF =£734114s IF STOP = 0 THEN PRTILINK 
LINKCS7837514#» ELSE LINK TO SEGDICT 

FFF =C18015]#,% INDEX INTO SEGMENT DICTIONARY 

FFC =18$33:15#s 

SINX = €33215]7#3;% RELATIVE ADDRESS INTO SEGMENT 

PpR = (€37:5]#, 

Poc = (42:6)#;3 


STOPF =C651]#s 
STOPCS6°47 ils 


BQ BR FL PR BR 9Q 


REAL STREAM PROCEDURE MKABSCF)} 


MKABS 


St « Fi MKABS ¢ Sy; 


REAL STREAM PROCEDURE BUILNFPRCNESTsFILNUMsFILTYPeMFIDsFIDsSTDSZ» 


BUITLNFPB 
IDNMs SPDEUN) 3 
VALUE DEST, 1DSZ,SPNEUN3 
BEGIN 
D1 « DEST3 
St « FILNUMS S] « SI + 68 DS « 2 CHR3 
St « FILTYpPs SI * SI + 73 DS © CHR} 
Sf * MFID$ SI] « S} + 13 DS «© 7 CHRS 
St « FIDk St + ST + 43 DS « 7 CHR} 
S] « LOC I1DSZ3 SJ] « SI + 73 DS * CHR? 


S} « ITDNMs SI « ST + 13 DS © IDSZ CHR3 
DISK SPEED & EU NUMBER+1 


St#LOC SPHEUNSSI*+S1+63DS¢2 CHRIS 
BUILOFPB « DI3 
os ra 2 LIT WOM s 
END BUILDFPBS 
REAL STREAM PROCEDURE GITSZ(F)3 


PRT(675) = GITSZ 


03004000 
03005000 


03006000 
03007000 
03008000 
03009000 
03010000 
03011000 
03012000 
03013000 
03014000 
03015000 
03016000 
03017000 
03016000 
03018100 
03019000 
03020000 
03021000 
03022000 
03023000 
03024000 
03025000 
03026000 
03027000 
03028000 
03029000 
03030000 
03031000 
03032000 
03033000 
03034000 
03035000 
03036000 
03037000 


03038000 
03039000 
03040000 
03041000 


03042000 
03043000 
03044000 
03045000 
03046000 
03047000 
03048000 
03049000 
03050000 
03051000 
03051200 
03052000 
03053000 
03054000 
03055000 


ee ee ee ee ee ee ee 


4444 


ee ee ee 


0019 
0019 


0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 


0019 
0020 
0020 
0021 


0021 
0021 
0021 
0022 
0022 
0023 
0023 
0024 
0025 
0026 
0027 
0027 
0028 
0028 
0029 


Gi © 


j 


er: 


O 


eS) 


CO! Heb: Ag 


'S 


O 


() 


O 


PRTC701) 


BEGYN 
St ¢ Fi Sy #St + 73 TALLY « 73 
3ctF Sc # “ ™ THEN JUMP OUT? 
St «Sy = 13 TALLY « TALLY + 633)3 
GtTSZ « TALLY: 
FND GrTSZ3 
STREAM PROCENURE MOVECFeTsSZ)3 VALUE SZ 
MOVE 


PRT¢676) 
BEGIN 
Sy « FS Dr «TF DOS « §Z WDS; 
END MOVES 
INTEGER PROCEDURE MOVEANDBLOCKCFROMsSIZE)3 VALUE SIZE} 
MOVEANDBLOCK 
ARRAY FROMCO*0)3 INTEGER SIZE3 
BEGIN 
REAL TeNSEGSa do T3 


PRT(677) 


STACK EF 43) 
STACK(F 44) 
STACK(F 45) 
STACKCF +6) 


Hou ad 


STREAM PROCEDURE M2(FeT)3 BEGIN ST*#F$ DteT$ DS «© 2 WOS$ END M23 
PRT¢(700) = 


= 
N 


NSEGS « CSIZE+29) DIV 303 
tF DALOC DIV CHUNK < T « ¢nALOC + NSEGS) DIV CHUNK 
THEN DALOC « CHUNK * T3 
MOVEANDBLOCK « DALOC3 
no BEGIN FOR J * O STEP 2 WHILE J < 30 AND [<S!IZE 00 
BEG! 
M2CFROMCI. C3685} 91 Lag t7IIeCODEC IDS 
{ « [423 
ENDS 
WRITECCODELDALOC))3 
DALOC «+ DALOC #43 
END UNTIL I 2 SIZE3 
END MOVEANDBLOCK$ 


STREAM PROCEDURE MDESCCVLU»PRT)$ VALUE VLUS 
MDESC 


a 


BEGIN 
Dt « LOC VLUs DS « SFT; % FLAG BIT 
Dr « PRT3 Sy « LOG VLU; DS « WDS;3 
END MDESC}3 
INTFGER STREAM PROCEDURE MAKETNTCS)3 
PRT¢702) = MAKETNT 
BEGIN LABEL LOOP? 
St # St Sy « Sf + 33 
LOOP! tr Sc 2 "0" THEN 
ArGIN TALLY « TALLY + 13 S} « SI * 1% GO TO LOOP; END} 
T « TALLY3 St «© S} Sy « S} + 3% Dr * LOC MAKEYNT? OS « T OCTI 
FND MAKFYNTS3 
LABEL FOUNDS 
FORMAT 


LOCAL T3 


FILEFCALe AGs Xie 


PRT¢703) = FILEF 
"FILE IDENTIFIER+ PRT IS "» Age "Q)e 


03056000 
03057000 
03058000 
03059000 


03060000 
03061000 


03062000 


03063000 
03064000 
03065000 
03066000 


03067000 
03068000 
03069000 
START OF SEGMENT 


03070000 T 0000 
03071000 T O004 
03072000 T 0002 
03073000 T 0004 
03074000 T 0007 
03075000 T 0008 
03076000 T 0013 
03077000 T 0013 
03078000 T 0018 
03079000 T 0020 
03080000 T 0020 
03081000 T 0025 
03082000 T 0026 
03083000 T 0027 
92 JS 32 LONGe NEXT SEG 
03084000 T 0036 
03085000 T 0036 
03086000 T 0037 
03087000 T 0037 
03088000 T 0038 
03089000 T 0038 
03090000 T 0038 
03091000 T 0039 
03092000 T 0039 
03093000 Tt 0040 
03094000 T O041 
03095000 YT 0043 
03096000 J O044 
03097000 T 0044 
03098000 T 0044 
START OF SEGMENT 4a ek 
03099000 T 0044 


0029 
0030 


0030 
0032 


0033 
0033 


0034 


AAA HAHA 


T 0034 
T 0035 
T 0036 
T 0036 
T 0036 
T 
T 
* 


0036 
0036 


OI OK Kk 


92 


90 


93 


- C) 


() 


C) 


C3 


Oe Oe © cae Oe © 


OO “OO: 6 


O 


C3 


CO} 


© 


BEGIN 


ENO? 


BEGIN 


END; 


BEGIN 


IF f 
BEGrN 


BLOKFCA6s XSe* "COMMON BLOCKs PRT IS "5 Ad» 
“, LENGTH IS %, I5> " WoRDS,")3 


COMMENT DUMP OUT ACCUMULATED FORMAT AND NAME ARRAYS? 
IF FNNINDEX # 0 THEN 


BEGIN FNNPRT * PRGDESCBLDRCL*eFNNPRT*®O*NXAVIL © NXAVIL + 4193 


WRITEDATACFNNINDEXeNXAVILe FNNHOLD D5 
END; 
IF SAVESUBS > 0 THEN 
BEGIN Ti #5 GETCT t= GLOBALSFARCHC™, SUBAR")+2)3 
‘ PUTCTsTIs=TI&SAVESUBS(TOSIZEJ)3 
END; 


TiePRGDESCBLDR( 1923+ 0sNSEGeNXAVILENXAVIL41) § % BUILD TPAR AT 


FYLL LSTTr*] WITH 21¢0),8¢" wy 3 % R+23 


WRITEDATAC29eNXAVeLsLSTT) 3 


POPRICCPDINX@12,037°S),¢POINX#1),f4276)],76%11]+1 3 % SAVE BIT 


Ty # PRGDESCBLDR(C1/2290eNSEG « NXAVIL © NXAVIL + 193 
WRITEDATA (4 38eNXAVILO TENDS % POWERS OF TEN TABLE 
I1F LSty > O THEN 


WRITEDATACLSTI» NXAVIL «© NXAVIL4¢e LSTP)3 
LSTA « PRGDESCBLDRC1s LSTAs OF NXAVILD 


IF TWODPRTX # O THEN 


FILL LSTTe*] WITH 
067T0000000421410010> 


0¢70301001301412025, 
00T2021010442215055, 
0¢7T2245400320211025» 
0¢70106177404310415, 
0¢T10250421123500003 


T © PRGDESCBLDR(C Oe TWODPRTX*s OF NXAVIL © NXAVIL+41)3 
WRITENATAC™G6e NXAVILe LSTT)3 


COMMENT DECLARE GLOBAL FILES AND ARRAYS? 
FPS « FPE « MKABSCFPR)}3 
SFGMENTSTART3 
F2TO0G «+ TRUES 
GSEG « NSFG3 
FPBI « 03 
EMITL¢CO)3 EMITLC2)% EMyTOCSSF)3 
EMITLO4)3 % SET BLOCK COUNTER TO 14 
EMITLC16)3 EMITOCSTD)3 
EMITLCO)3 EMITOPDOCLITC2323 EMITOCDELD3 
FMITLCREALCHOLTOG))3 EMITPAIR(21STO)3 
1 * GLOBALNEXTINFOS WHILE I < 4093 pO 


1 « [+33 
GFTALLCI»INFAsINFBe INFO) 


NFA,CLASS = FILEIN THEN %SEE COMMENTS ON LENE 02118000 


FPBI « FPBY + 13 


4992— 


03100000 T 0044 
03101000 T 0044 

93 IS 27 LONGe NEXT SEG 
03102000 T 0044 
03403000 T 0044 
03104000 T 0045 
03105000 T 0049 
03106000 T 0051 
03106100 T 0051 
03106125 T 0051 
03106150 T 0055 
03406175 T 0057 
03106200 T 0057 
03106205 T 0060 

START OF SEGMENT 2k KOK Kak 

94 1S 29 LONGe NEXT SEG 
03106210 T 0062 
03106215 T 0064 
03107000 T 0069 
03108000 T 0072 
03109000 T 0074 
03110000 T 0075 
03111000 T 0075 
03112000 T 0078 
03113000 T 0080 
03114000 T 0080 
03115000 T 0081 
03116000 T 0081 
03117000 T 0082 

START OF SEGMENT #22 Ik 
03118000 T 0083 
03119000 T 0083 
03120000 T 0083 
03121000 T 0083 
03122000 T 0083 

95 1S 6 LONGe NEXT SEG 
03123000 T 0083 
: 03124000 T 0086 
03125000 T 0088 
03126000 T 0088 
03127000 T 0088 
03128000 T 0091 
03129000 T 0091 
03130000 T 0093 
03131000 T 0094 
03132000 T 0094 
03133000 T 0097 
03134000 T 0097 
03138000 T 0099 
03139000 T 0101 
03140000 T 0103 
03141000 T 0106 
03142000 T 0106 
03143000 T 0107 
03444000 P 0409 
03445000 T 0410 
03146000 T 0110 


90 


94 
90 


95 


90 


PR} « INFA ,ADDR? 
IF CXTA «© INFB >,€18%6) < 10 THEN 
BEGYN 
1F XTA © MAKEINTCXTA) > BIGGESTFILENB THEN FLAGC77) ELSE 
FrLeESeXxTA] « PRI 
IF XTA > THEBIGGEST THEN THEBIGGEST « XTA3 
END} 
EMITOCMKS)3 
IF J « INFC eADINFo # O THEN % oOpTION FILE 
BEGIN FILTYP « INFC eLInk3 
IDNM « * VRUFILE" LEAs 2GIRINFBIL 3081831813 
Ti © GITSZCIDNM)3 
FID « FILEINFOL29J)3 
MFID « FILEINFOCieJ]; 
IF FILTYP210 AND CT*FILEINFOL3*#U]+DKAREASZ)#0 THEN 
BEGIN 22% SET Up «DISK FILE DESCRIPTION>: 
SPDEUNtSFILEINFOC3eJ],SENSPDEUNF 3 
BelF (CBeCCUSFILEINFOCOe JI) 6£18212))/C1F Aed, 030212350 THEN 
1 ELSE A))<O THEN 1 ELSE B } 
24% BSORIGINAL "RLOCKING" SIZE = # LOGRECS/PHYSREC, 
AcENTIERCBXENTIFR(T/€20xXB2+,999999999)4,.5) 3 
42% TS"aAREa"” SIZE = # LOGRECS IN TOTAL FILE, 
Z%% A=# LOGRECS PER ROW, 
ReENTIERCT/A4.999999999) 3 
24% B = € ROWS IN FILE, 
Z%% EQUIVALENT ALGOL FILE DESCRIPTION = fBtal, 
¥%%¥ THE ABOVE LOGIC YIELDS$ SHORTEST ROW CONTAINING 
¥%¥% AN TNTFGFR NUMBER OF PHYSICAL RECORDS AND WHICH 
%%% REQuYReS 20 OR FEWER ROWS FOR THE TOTAL AREA, T, 
EMI TNUM¢B)s EMEITNUMCA)D 3 
END ELSE 
BEGIN EMITLCO)3 EMITL¢COD3 
Jo« FILEINFoCO*egy]3 2 THIS ONE HAS ALL THE GOODIES 


END? 
QQQDISKDEFAULTS 4503" 
ESTIMATE*ESTIMATE+(CU,CA2S6JIKCIF Awd, f184142]=0 THEN J,L30292) 
ELSE A) 3 


EMITLEJ,C432))3 %’ Lock 
EMITLCFPBI)3 & FILE PARAM INDEX 


EMITDESCLITCPRI)5 % PRT OF FILE 
EMITLOUgf42%6])3 % # BUFFERS 
EMITLCU203%813)3 % RECORDING MODE 
EMITNUMCJ.£30812]) § & RECORD S$1ZF 
EMITNUMCJ,£18412]) ¢ % BLOCK SIZE 
EMITNUMCJ,£ 63127) § & SAVE FACTOR 
END ELSE 
BEGIN 
ALF «TRUES 
IF CEILTYPe INFO LINK=2 OR FYLTYPS12)AND INFB,£18%6)¢9 THEN 
TIONM © Oat ILE" 63243 24] 2 yNFBL30818:18) 
ELSE 
BEGrN 
ALF «#« FALSE3 
IF C1DNM « © “RS INFRE6218230}) = "READR THEN 
TONM « "READER "3 
END? 


03147000 
03148000 
03149000 
03150000 
03451000 
03152000 
03153000 
03154000 
03155000 
03156000 
03157000 
03158000 
03159000 
03160000 
03161000 
03162000 
03162005 
03162007 
03162014 
03162020 
03162030 
03162040 
03162050 
03162060 
03162070 
03162080 
031627090 
03462100 
03162110 
03462120 
031621429 
03163000 
03164000 
03164010 
03164045 
03164050 
03164100 
03165000 
03166000 
03167000 
03168000 
031469000 
03170000 
03171000 
03472000 
03173000 
03474000 
03175000 
03176000 
03177000 
03178000 
03179000 
03180000 
03181000 
03482000 
037483000 
03484000 
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C) 


C) 


G3 


" ELSE 
183END ELSE 
EGIN 
EMITL¢20)% EMITL(600)% FILTYP*12% %20 x 600 REC DISK 

JOR 20422428618100308 3644218300118! 3621213 
FID*IDNM$ MFID*"FORTEMP"s T1*GITSZCIDNM)3 

GO TO QQQDISKDEFAULTS 


ENDS 
T1 © GITSZCIDNM)3 
FID * IDNMS 
MFID © O03 
le DCINPUT AND ALF THEN BEGIN 
EMITLC20)3 % DISK ROWS 
EMITLC10093 % DISK RECORD PER ROW 
FMITLO2)3 % REWIND AND LOCK 
EMYTLO¢FPBT)3 % File NuMBER 
EMYITDESCLYTCPRY)3 % PRT OF FILE 
FMITL¢2)3 % NUMBER OF BUFFFRS 
EMITL¢1)3 % RECORDING MODE 
EMITL¢40)3 % RECORD SIZE 
EMITL¢30)3 % BLOCK SIZE 
EMITL¢L)3 % SAVE FACTOR 
END ELSE 
BEGIN 
EMITLCODS % DISK ROWS 
EMITLCODE 2 DISK RECORDS PER ROW 
EMITL¢COD3 % REWIND & RELEASE 
EMITLCFPBr)}3 & Fille NUMBER 
FMITDESCLITCPRII3 2% PRT OF FILE 
EMITLO(2)3 % 2 BUFFERS 
EMITLOREALCALF))3 
EMITLOIF FILTYP = O THFN 10 ELSE 1723 
EMITL&O)3 % 15 WORD BUFFERS 
EMITL(0)3 % SAVF FACTOR CSCRATCH BY DEFAULT) 
END3 
ENDs 
FMItTL¢O113 % rNPUT OR OUTPUT 
EMITL¢8)3 ® SWITCH CODE FOR BLOCK 
EMITOPDCLIT¢5)3 & CALL BLOCK 
FPE+BUILDFPBCFPEsFPBYTeFILTYPeMFIDeFIDe Tis IDNM»sSPDEUNDS 
IF PRTOG THEN WRITALISTCFILEF s3*#LDNMe(6861]*IDNM*#B2DCPRI De 
Oroe090re0) 3 
END - 
ELSE 
IF INFA,CLASS = BLOCKID THEN 
BEGIN 
IF PRTOG THEN WRITALISTCBLOKF »3eINFBeB20CINFASADDR) ® 
INFC,SIZEs00 0209020) } 
IF INFA < 0 THEN ARRAYDECC1)3 
ENDs 
IF ¢T1 © INFA eCLASS) 2 FUNID 
AND T1 <$ SUBRID THEN 
BEGIN % CHECK FOR INTRINSIC 
PRL « O03 
1F INFA eSEGNO = O THEN 
BEGIN 


2503 
4503" 


%503= 
%503" 
4503" 
%503* 
3503 
2503" 


03184010 
03184020 


03184030 
034184040 
03184050 
03184054 
03184060 
03184070 
03185000 
03186000 
03187000 
03187100 
03187200 
03187300 
03187400 
03187450 
03187500 
03187550 
03187600 
03487650 
03487700 
03187750 
03187800 
03187900 
03188000 
03189000 
03190000 
03191000 
03192000 
03193000 
03194000 
03195000 
03196000 
03197000 
03498000 
03198500 
03199000 
03200000 
03201000 
03202000 
03203000 
03204000 
03204010 
03205000 
03206000 
03207000 
03208000 
03209000 
03210000 
03211000 
03212000 
03213000 
03214000 
03215000 
03216000 
03217000 
03218000 
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0200 
0203 
0211 
0215 
0217 
0221 
0224 
0226 
0226 
0227 
0228 
0229 
0231 
0231 
0232 
0233 
0234 
0234 
0235 
0236 
0237 
0237 
0238 
0238 
0239 
0239 
0240 
0241 
0242 
0242 
0242 
0243 
0244 
0247 
O247 
0248 
0248 
0248 
0249 
0250 
0250 
0254 
0258 
0260 
0260 
0260 
0261 
0262 
0266 
0268 
0270 
0270 
0271 
0273 
0273 
0274 
0275 


Oo Oa OO > 1. SEE OO Ee 2S 


{°) 


C2 


(3< <6)) 1 


Gye. ae: ia} Cys. A) 


\ 
é 


O 


O 


AeO} BeNUMINTM1Y 3 
WHILE Ati < B po 
BEGIN 
PRr « REALCBOOLFANCA+B) AND BOOLEAN(1022))3 
1F YONM « JNTCPRIY = INFB THEN GO TO FOUND; 
IF INFB < IDNM THEN B # PRI.£36811) ELSE A « PR1.£36%41173 
ENDS 
IF IDNM «© INTEPRI«CA4B)x2"PRIJ = INFB THEN GO TO FOUND? 
XTA «© INFBS FLAGC30)3 
GO TO LA 
FOUND? 
IF CTi*INTEPRI+1],INTPARMS)#0 
AND INFC < 0 
THEN IF Ti # INFC.NEXTRA THEN 
BEGIN XTA «© INFB s FLAGC28)% END? 
IF CFID*INTLOCEMFID*tNTEPRr+t}—¢INTNUMJ)20 THEN 
BEGIN 
PONPRTICPDIRePDIC] « 
O&1CSTYPC] 
8MFIDEDKACI 
&CFID « JNTLOCEMFID] «© NXAVIL «© NXAVIL + 1) £SGNO0C] 
Rif SEGSZC)3 
PHINX «© PHINX + 13 
END: 
T1 » PRGDESCBLORCLs INFA -ADDRe OF ID 
tf PRTOG THEN WRITALYSTCSEGUSe de TDNMeFIDeB2DCT12 2020002090) 3 
IF INTCPRrei] < O THEN 
BEGIN 
Ty « PRGDESCBLOR( te INTPFPRI+i J,INTPRTsOeFI0I3 
INTEPRI41} «© ABSCINTPPRI * 1393 


ELSE IF PRTOG THEN WRITALISTCSEGUS»s 3 INFBe 
INFAsSEGNO*B2DCINFACADDR) 2020000090) 3 
END} 
LAS 
END} 
COMMENT MUST FOLLOW THE FOR STATEMENT? 
IF FILEARRAYPRT # 0 THEN 
BEGIN % BUILDING OBJECT TIME FILE SEARCH ARRAY 
J « PRGDESCBLORC1sFILEARRAYPRT®OsNXAVIL «+ NXAVIL + 123 
WRITEDATACTHEBIGGEST + teNXAVILeFILES)3 
END} 
XTA « BLANKS3 
tPF NXAVIL > 1023 THEN FLAGC4S)3 
tr PRTS > 10293 THEN FLAGC46)93 
tf STRTSEG = 0 THEN FLAGC65)3 
PRr « 03 ; 
WHILE C€IONM « INTPFPRtJ) #4 0 DO 
rr INTcPRr+4)] 2 0 THEN PRy « PRY + 2 ELSE 
BEGIN 
IF CFIDeINTLOCOMFYD*INTEPRr+i]eINTNUMJ)S0 THEN 
BEGIN 
PDPRTEPDIRePDIC] « 
ORLESTYPC) 
RMF IDCOKAC) 
RCFID « INTLOCEOMFID] * NXAVIL © NXAVIL + 19£SGNOC) 


03219000 
03220000 
03221000 
03222000 
03223000 
03224000 
03225000 
03226000 
03227000 
03228000 
03229000 
03230000 
03231000 
03232000 
03233000 
03234000 
03235000 
03236000 
03237000 
03238000 
03239000 
03240000 
03241000 
03242000 
03243000 
03244000 
03245000 
03246000 
03247000 
03248000 
03249000 
03250000 
03251000 
03252000 
03253000 
03254000 
03255000 
03256000 
03257000 
03258000 
03259000 
03260000 
03261000 
03262000 
03263000 
03264000 
03265000 
03266000 
03267000 
03768000 
03269000 
03970000 
03271000 
03272000 
03273000 
03274000 
03275000 
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0276 
0277 
0279 
0279 
02814 
0283 
0287 
0288 
0292 
0293 
0294 
0295 
0297 
0297 
0300 
0302 
0305 
0306 
0308 
0309 
0310 
0314 
0315 
0316 
0316 
0319 
0324 
0326 
0326 
0329 
0332 
0332 
0332 
0335 
0339 
0339 
0340 
0340 
0340 
0341 
0341 
0344 
0347 
0347 
0347 
0349 
0351 
0353 
0354 
0357 
0360 
0360 
0364 
0364 
0366 
0368 
0369 


C) 


Ri CSEGSZC)3 
PDINX « PDINX + 13 
END? 
Ti © PRGDESCBLDRC1*sINTEPRI + LJeINTPRT®OeFID)S 
PRI « PRI423 
END: 
FOR 1 « 1 STEP {1 UNTYL BDX DO 
BFGIN EMITOCMKS)$ EMFTOPDCLITCBDPRTLI7) END} 
EMITOCMKS)3 
EMITOPDCLITCSTRTSEG.£183215])3 
T «© PRGDESCBLDR(1s0s0eNSEG)3 
SFGMENTCCADR+4) DIV Se NSEGeFALSEsED0C)3 
tf ERRORCT # O THEN gO TO FNOWRAPUP? 
FYrLL SEGOr*) WITH 


OcT020005, % BLOCK 
OCT220044>» % WRITE 
0CT230015> % READ 
0€72400163 % FILE CONTROL, 


COMMENT INTRINSIC FUNCTIONSS 
FOR I « 0 STEP 1 UNTIL 3 DO 
BEGIN 
T1 © PRGDESCBLOR(1»SEGOLIIJ,£36%121]90» 
NSEG « NXAVIL © NXAVIL #13 
POPRTEPDIR»PDIC] « 
OR1ESTYPC) 
RCSEGOLT1,£3086]) £DKACI 
&NXAVILESGNOC] 
RICSEGSZC]3 
PHINX « PoOINX + 13 
END? . 
_ COMMENT GENERATF PRT AND SEGMENT DICTIONARY? 
PRT¢0,41] + PDPRTr0,0] & 63£1034236]3 % USED FOR FAULT OPTN 
FOR 3 « 2 STEP 1 UNTIL PDOINX="1 00 © 
TF CTLePOPRTCT.PDORset.Pnc)).SEGSZF = O THEN 
BEGIN % PRT ENTRY 
PRTADR «T¢,PRTAFS 
SEGMNT «T4,SGNOF3 
LNK « SEGDICTCSEGMNT(£36%5)2 SEGMNT.£4137)],PRTAF3 
MDESCCT1eRELADF&SEGMNTECFFC] 
&CREALCUNK=0) 9 CSTOPC) 
RCIF UNK 53 0 THEN SEGMNT ELSE LNK)CLINKC] 
RCTL,DTYPFICMODEC] 
R5C1:4593]s . 
~ PRICPRTADRo £3625] ePRTADRgL4137]133 
SEGDICTESEGMNT+ £3635) *SEGMNTe C4187) ]ePRTLINKF © PRTADR3 


BEGIN % SEGMENT DICTIONARY ENTRY 
SEGMNT «+ T1,SGNOF$ 
SEGDICTESEGMNT,£36:5]*SEGMNT,C41197) ]¢ 
SEGDICTESEGMNTe £3625 ]eSEGMNT,£4137]] 

RTICSGLCC] 
&TILEDKADRC) 
& Tif4s12:1) 
RT1iL6:681) 


START OF SEGMENT 


96 IS 


03276000 
03277000 
03278000 
03279000 
03280000 
03281000 
03282000 
03283000 
03284000 
03285000 
03288000 
03289000 
03290000 
03291000 
03292000 


03293000 
03294000 
03795000 
4 LONG 
03296000 
03297000 
03296000 
03299000 
03300000 
03301000 
03302000 
03303000 
03304000 
03305000 
03306000 
03307000 
03308000 
03308100 
03309000 
03310000 
03311000 
03312000 
03313000 
03314000 
03315000 
03316000 
03317000 
03318000 
03319000 
03320000 
03321000 
03322000 
03323000 
03324000 
03325000 
03326000 
03327000 
03328000 
03329000 
03329100 
03329200 


ee ee 
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0372 
0374 
0375 
0375 
0378 
0379 
0380 
0384 
0385 
0385 
0387 
0389 
0392 
0393 
0394 
RK KK Kk 
0395 
0395 
0395 
NEXT SEG 
0395 
0395 
0396 
0396 
0397 
0400 
0402 
0403 
0405 
0406 
0408 
0409 
0411 
O4t1 
0415 
0419 
0423 
0424 
0425 
0426 
0429 
0431 
0432 
0435 
0437 
0438 
0440 
0445 
0445 
0445 
0445 
0446 
0449 
0451 
0452 
0453 
0454 


96 


90 


Ome & 


} 


~ 
4 


C) 


©) 


O 


Cys 


O 


CO 


C) 


RTICis18273 03330000 T 0455 
TSEGSZ « TSEGSZ + Ti.SFGSZF3 03331000 T 0456 
03332000 T 0458 
COMMeNT WRITE OUT FIle PARAMETER BLOCK} 03333000 T 0459 
FPBSZ « C¢FPE.633%315] = FPS) x 8 + FPE,£30%3) + 9) Div BS 03334000 fT 0459 
1 ¢ (FPBSZ + 29) DIV 303 03335000 T 0463 
IF DALOC DIV CHUNK < Ty * ¢DALOC +12 DIV CHUNK 03336000 T 0465 
THEN DALOC « CHUNK x T13 03337000 T 0466 
SEGOL4] « DALOCE 03338000 T 0469 
SEGOL5] « FPBSZ3 03339000 T 0470 
SEGOL5].FPBVERSFeFPBVERSIONS 03339100 T 0472 
FOR 1 « 0 STEP 30 WHrlLe I « FPBSZ po 03340000 T 0474 
BEGIN 03341000 T 0478 
03342000 T 0478 
MOVECFPBLTJsCODECO)etF CFPBSZ*I1) 2 30 03343000 T 0478 
THEN 30 FLSE CFPBSZ°1))3 03344000 T 0483 
WRITECCODFENALOC))3 03345000 T 0485 
NALOC « DALOC + 13 03346000 T 0490 
03347000 T 0494 
SEGOE2] «© MOVEANDBLOCK¢PRT,PRTS4#1)3 % WRITES OUT PRT 03348000 T 0492 
¥ SAVES ADDRESS OF PRT 03349000 T 0495 
SeGgOr3] « PRTS + 43 % SIZE OF PRT 03350000 T 0495 
SFGOCO] + MOVEANDBLOCK¢SEGDICTeNXAVIL + 193 % WRITE SEG DICT 03351000 T 0497 
SEGOr1] « NXAVIL + 43 % SIZE OF SEGMENT DICTIONARY 03352000 T 0500 
SFEGOL6] « »GSEG} % FIRST SEGMENT To EXECUTE 03353000 T 0502 
SEGOC77,033515] © FPBI3 % NUMBER OF FILES 03354000 T 0503 
SEGOL717.£18815] © ESTIMATE « IF % CORE ESTIMATE 03355000 T 0505 
Cle 03356000 T 0506 
ESTIMATE+60+ 42% OpTION FILE BUFF SIZES + DEFAULT BUFF SIZES, 03356100 T 0506 
PRTS + 512 ® PRT AND STACK SIZE 03357000 T 0507 
+TSEGSZ 2 ToTalL SIZE OF CODE 03358000 T 0508 
+ 1022 % FOR INTRINSICS 03358050 T 0508 
+ARYSZ 2 TOTAL ARRAY SIZE 03359000 T 0509 
+ (MAXFILES «x 28) % SIZE oF ALL FIBS 03360000 T 0509 
+FPBSZ 2 SIZE oF FILE PARAMETER BLOCK 03361000 T 0510 
+ CIF ESTIMATE = 0 THEN O ELSE CESTIMATE + 10009) 03361100 T 0511 
+ (NXAVIL # 1) % SIZE OF SEGMENT DICTIONARY 03362000 T 0514 
) > 32768 THEN 510 ELSE CI DIV 6493 03363000 T 0515 
COMMENT IF SEGSWN THEN UPDATE LINDIcTs SEGOLO) & WRITE IT 3 03363100 T 0519 
SEGOL7],£2%1) «© 13 &% USED FOR FORTRAN FAULT DEC3 03363150 T 0519 
1F SEGSW THEN 03363200 T 0522 
REGIN 03363300 T 0523 
FOR } * NXAVIL + 1 STEP *1 UNTIL 1 DO 03363400 T 0523 
IF LINEDICTCILIRe 1,10) = O THEN % INDICATE NO LINE SEGMENT 03363500 T 0527 
LINEDICTEL.IRet,1C) + 13 % FOR THIS SEGMENT 03363600 T 0530 
 SFGOLO] © SEGOLO] & ECMOVEANDBLOCKCLINEDICTsNXAVIL4+1) 2 TOBASEJS 03363700 T 0536 
FNp3 03363800 T 0540 
WRITECCODELOI»39sSEGOr e123 03364000 T 0540 
IF ERRORCT = 0 AND SAVETIME 2 O THEN LOCKCCODE)3 03365000 T 0545 
ENDWRAPUPS 03366000 T 0549 
LOCKCTAPE)} ZRW/,, TAPE FILE oR LOCK DISK 45028 03366100 P 0549 
“IF NTAPTOG THEN LOCKCNEWTAPEs*)3 %RW/|, TAPE OR CRUNCH DISK%502= 03366200 C 0550 
END WRAPUPS 03367000 T 0553 
564 LONGse NEXT SE 


Gye 


(> uy 


C) 


o 


( 


») 


© 


PROCEDURE INITIALIZATIONS 
PRTC704) = INITIALIZATION 
BEGIN COMMENT 


03368000 T 0506 


INITIALIZATIONS 03369000 T 0506 


O 


Ce. °° 


PRTC705) 


PRT¢706) 


u 


= 


ALPHA STREAM PROCEDURE MKABSCP)}3 


BEGIN Sy # P$ MKABS ®* St ENDS 
STREAM PROCEDURE BLANKOUTCCRDs N)% VALUE Ni 


BLANKOUT 


BEGIN Dr » CRD? NODS « LIT * #) END? 
BLANKOUT(CCRDOELO}» 4033 
BLANKOUTCLASTSEQs 8)3 
BLANKOUTCLASTERR*8) 3 
INITYALNCR © MKABS¢CRDL0]7a65308458373 
CHRO * MKABSCACCUME0O}2& 2730t4533)3 
ACRO » cHRO+ 3 
ACRL «© ¢CHRI@MKABSCEXACCUMrP0]) & 2430245231) +93 
ACCUMSToOP«eMKABSCACCUMG 44393 EXACCUMSTOPeMKABSCEXACCUMri1}]) 3 
BUFL « mKABSCBUFF) & 29£30%45!3)3 
NEXTCARD « 13 
GLOBALNEXTINFO «© 4093) 
PDINX « 43 
LASTNEXT#1000 3 
PRTS # 443 B CURRENTLY » « «© « e LAST USED PRT 
READCCR, 108 CBE*])3 
LISTOGeTRUES SINGLETOG*TRUE’ CHECKTOG © FALSE$ %DEFAULT 501° 
FIRSTCALL « TRUE} 
IF BOOLFANCERRORCT, £46913) THEN LISTOG © FALSE} 
IF BOOLFANCERRORCT,C47#1]) THEN DCINPUT © TRUES 
ERRORCT « O§ 
IF DCINPUT THEN SFGSW « TRUE 3 
IF OCINPUT THEN REMOTETOG+¢TRUF $3 
LIMrTete DcINPUT THEN 20 ELSE 100 3} 
IF SEGSW THEN SEGSWFIXED « TRUE 3 
EXTRATNFOfOe0] « O & EXPCLASSr TOCLASS]3 
NEXTEXTRA « 13 
LASTMODr « 4 3 
NALOC « 13 
TYPE ¢ o{h- ; 
MAP(CO} + MAPf2] « MAPC4S] © MAPL7] « 7103 
MAPLES] « 1% MAPL61 «+ 23 
FILL XRe*] WITH OF090200000904 


WINTEGE Ms *R Rit, th, tt tet REAL Meh t, 
*LOGICA es *1, Le "DOUBLE Mts! e"COMPLE Ms Xx Xt, 
Wm mg wm it, iim mitt wee o,f meme wat t, 
Hew gammtt, te ott Hew mmmm it, it 1g fm me mannan tt, tf mits 
FILL TYpPESL*] WITH " "s "INTGER™s "es "REAL "“e 


"LOGCAL"s "DOUBLE"s "COMPLX"3 


FILL KLASS{*) WITH 
"NULL es "ARRAY se "VARBLE's "STFUN ‘ep 


"NAMLST%:s "FORMAT'*»s "ERROR ™, "FUNCTNG 
"INTRSCs "EXTRNL'» "SUBRTN's "COMBLK"s 
“Fibre 3 


FILL RESERVEDWORDSLPE*) WITH 


03370000 T 0506 

START OF SFGMENT ** ee ee eH Re 
03371000 F 0000 
03372000 T O0014 
03373000 T 0001 
03374000 T 0004 
03374100 T 0006 
03374200 T 0007 
03375000 T 0008 
03376000 T 0011 
03377000 T 00144 
03378000 T 0016 
03378100 Tt 0020 
03379000 T 0024 
03380000 T 0026 
03381000 T 0027 
03381100 T 0028 
03381200 T 0029 
03382000 T 0029 
03383000 -T 0030 
03384000 P 0034 
03385000 T 0040 
03385100 T O04} 
03385200 T 0044 
03385300 T 0047 
03385350 T 0048 
03385355 T O05] 
03385360 T 0054 
03385400 T 0057 
03386000 T 0060 
03387000 T 0063 
03387100 T 0064 
03388000 T 0064 
03389000 T 0065 
03390000 T 0066 
03391000 T 0073 
03391700 T 0073 

START OF SEGMENT kk Re AOR 
03391200 T 0075 
03391300 T 0075 
03391400 T 9OO075 
03391450 T 0075 

98 1S 31 LONGs NEXT SEG 
03392000 T 0075 

START OF SEGMENT & xx: 4 RAK 
03393000 T 0077 

99 1S 7 LONGs NEXT SEG 
03394000 T 0077 
03395000 T 0077 

START OF SEGMENT 2% x eR & 
03396000 T 0078 
03397000 T 0078 
03398000 T 0078 

100 1S 13 LONGs NEXT SEG 


03399000 


T 0078 


98 


100 


97 


roa 


O) 


C} 


O 


CQ) 


O 


Cy 


fealLL “s@teNTR MetFORM ","60TO "YF ","READ Ns 03400000 T 0079 
START OF SEGMENT ##¥*eRKeKe 101 
WREAL Me"WRIT “eOATA ",*eLOS Me"LOCK e"PURG “Me*CHAL 03401000 T 0080 
WPRIN fs" PUNC 03401100 T 90080 
Oe"¥ WLM AT 1.09000 0e"E ,00"E ",0.%E tt, 03401200 T 0080 
wN ny Wey A | 03401300 T 0080 
101 18 30 LONG» NEXT SEG 97 
FILL RESERVEDWORDSr*1 WITH 03402000 T 0080 
“ASS? Me"*BACK e™BLOC "CALL Me" COMM Mat®COMP eh CONT Wy 03403000 T 0081 
: START OF SEGMENT *kx#kkHRRR = 102 
"DATA “s*DIME “e*D0OUB *, "END ","ENDF "‘s"ENTR *e "EQUI tt, 03404000 T 0082 
"EXTe te"FUNC MetGOTO “stINTE “e"LOGI “eo "NAME te*PAUS ty 03405000 T 0082 
WPRIN MePPROG Me"PUNC "READ Me*REAL ePRETU Me"REWT iy 03406000 T 0082 
"STOP ‘s"SUBR "s"WRIT , : 03407000 T 0082 
"CLOS “‘te"LOCK "et#PURG ™, 03407100 T 0082 
02020» 03407101 T 0082 
"FIXr Te"VARY eMAUXM ","RELE "te 03407102 T 0082 
"EMPL os 03407103 T 0082 
WGN ","SPACE te KDATA ,0¢0N WeMLEX "TINUE " 03407200 T 0082 
Oa "NSTON “"LEPRECIS",Oe"ILEe Wey WS"VALENCE “e*RNAL 7 03407300 T 0082 
a"TION WeOa"GER hA"CAL ",s"LIST ANE y"T ", 03407400 T 0082 
"RAM wy 2 0e0etRN "eNO ",O,"OUTINE 03407500 T 0082 
"Ee "NE e0,"E 2090200" "SING ", 03407600 T 0082 
eM SL ASE a” 03407601 T 0082 
e"ICET ” 03407602 T 0082 
} 03407990 T 0082 
102 78 84 LONGs NEXT SEG 97 
FILL RESLENGTHLPE*] WITH 03408000 T 0082 
beSefe be De be beS shee fede 505053 03409000 T 9008p 
START OF SEGMENT xx ek eRe KEE 103 
103 1S 15 LONGse NEXT SEG 97 
FILL LPGLOBALE*] WITH 03410000 T 0084 
hs 438 369 479 359 25 03411000 T 0084 
START OF SEGMENT **e4eeeeee = =104 
269 310 8 328 33% 342 37, 22» 243 03411100 T 0085 
104 1S 15 LONGe NEXT SEG 97 
FILL RESLENGTHE*) WITH 03412000 T 0085 
On 9, 9s Ae Ge 03413000 T 0086 
START OF SEGMENT ¥ee#eeeeRe = =105 
7e 8, 4s Ge 15. 03414000 T 0087 
3e 7, Se its Be 03415000 T 0087 
82 4, 7e Te Bo 03416000 T 0087 
Se Sy 7s Ser Ae 03417000 T 0087 
ba 6s 69 4s 10n 5e 03418000 T 0087 
Sa 4, Se Os On Oo Se Te 6a 7 03418100 T 0087 
28 03418101 T 0087 
5 03418990 T 0087 
105 1S 42 LONGs NEXT SEG 97 
FILL WOPf*] WITH 03419000 T 0087 
"LIT CH st ", 03420000 T 0088 
START OF SEGMENT **exeke He = 106 
WOPDC™s "DESC, 03421000 T 0089 
10e"DFL, Me TLe*NOP %s 12e"XRT se 16e"ADD Me {7etADD so 16e"PRL iy 03422000 T 0089 
19e"™LNG s 2Le"GEQ "s 22e"BBC eo DHe"INX %- 35e"LOR sp 37e"GTR hy 03423000 T 0089 
3Be"BEC %e 39e"RTN He GOe"COC se gBe"SUB %» AFe"SBO %s 64e"™MUL Ny 03424000 T 0089 
659M? “se 67e"LND Ms 68e"STD "r 69e"NEQ Me 7OP"SSN eo 7FLeMXIT He 03425000 T 0089 
720 MKS Me 03426000 T 0089 


C1) 


C) 


O) 


O 


128e"DrV 
134e"CHS 
278 a"GBC 
5150"MnS 
550e"BEW 
806e"Grl 


1.1 29e"DV2 
1679 "RTS 
,280e"SSF 
s532e"1SD 
", 581 e"EQL 
re B96e"*RDOV 


2130s"COM "21319 "LQV %2132e"SND 
2168e"COC "e197e"FTC "e260e"L0D 
s294e"GEC "a392e"ZP1 se 384eMIDV 
"e533e"LEO 25 34e"BBW MeSaBe"1SN 
eSB2e"SSP “eS5SQde"ECM Me 7O9e CTC 
*,965e "CTF We 


"21339"XCH 
te, 264e"DUP 
“,453e"FTF 
"2549,"LSS 
.790e"GBW 


102321023210232102304093"102381023 61023210235 102391023, 


FIQL TIPELE) WITH 10671) 0"199"24 20CT3I00000000 21a 729739 7he 


10233 


BCOCT30N0000000) FOCTINDNDNNNNO o 5 e813 94 ethe7oM19em118 
SCOCTLIOONDNNDND AP Ba 3COCTIONNNNNNO aMOeM1Oe M1 AH ML ae Mts 
"159 ™100 eM 16s BCOCTIONNDNNNNN aM 17 eM Ger 18s™19 eM A021 


FILL PERTODWORD(*) WITH 


"FALSE t, "TRUE ", AND w, "NOT 
"LT wy MLE “, "GT ", "GE WNE Le 

ACCUMEO4 « EXACCUMFO} « "3 "3 

INCLUDE t= "NCLUDE" & "T"(6taot6]3 

INSERTDEPTH t= ={¢3 

FILL TENE *) WITH %® POWERS OF TEN TO PRT 22 
00714141000000000000. 007T4131200000000000» 0€671121440000000000, 
0¢713111750000000000, 0¢71102342000000000% 0¢71073032400000000, 
0¢71063644100000000, 0771054614320000000, 0¢T71045753604000000, 
0¢741037346545000000, 0¢71011124027620000, 0¢70001351035564000, 
0¢70011643245121000, 0¢70022214116345200, 001T00326571427036440, 
00170043432772446150, 0¢T0054341571157602, 0¢7006543212741 3542, 
0¢7T0076740555316473, 0¢T0111053071060221,. 0¢7T0121265707274265, 
0¢70131543271153342, 0770142074147406233, 0¢7T0152513201307702> 
0070163236041571663, 0¢70174105452130240, 00702051 26764556310, 
0¢70216354561711772, 007T0231004771627437, 0¢790241206170175346, 
0¢70251447626234640, 0nT0261761573704010, 0¢010272356132665012, 
0070303051561442215, 0¢70313664115752660, 0¢6790324641141345435, 
00T0336011371636744, 00T70347413670206535» 00T0361131664625026, 
OCTO0371 3602417722348 00T0401654312370703» 00T0412227375067064, 
OCTN4226752743047018 00T04334545533660618 00T0444367706263475> 
OCTHN4554656677404158 007T046700324573052n» 00T0501060411731664. 
0¢70511274514320241, 0eT0521553637404312¢ 0¢0T0532106607305374, 
007T0542530351166673, Oe T05532564434244525 0070564132154331565, 
0¢70575160607420123, On T0606414751324147, 0¢706210120143611205 
06 T0632214417455344, 07706414575233706350 0¢10651773450267004, 
00670662372362344605, O0¢T0673071057035747,» 0¢T070370727 2645341, 
0¢7T0714671151416631, Oe T0726047403722377, 0079737461304707077, 
0¢T0754137556607074, 0770764 367512350710» 0¢T077 1665435043072, 
0¢70000000000000000, 0¢70000000000000000, 0¢T0000000000000000, 
0¢70000000000000000, 0¢T0000000000000000,. 0¢7T0000000000000000, 
0¢T0000000000000000, 07T0000000000000000,» 0c¢T0000000000000000, 
0cT0000000000000000» O0cTO0000000000000000» 0cTO0DD000NDNDNNNNNNN, 
0¢T0000000000000000, 0e70000000000000000, 0¢70000000000000000, 
0¢70000000000000000, 0¢T0000000000000000,» 0¢70004000000000000, 
OcTOO01000ND00000000s 0¢T0001720000000000» 0¢T0004304000000000, 
0¢70007365000000000, 0c70005262200000000- 0c¢70004536640000000, 
0c7T0001666410000000, 0¢7T00009441412000000; 0¢70000315134400000, 
0¢70000400363500000, 0¢-T0000450046042000, 0¢700065620574529400, 


03427000 T 0089 
03428000 T 0089 
03429000 T 0089 
03430000 T 0089 
03431000 T 0089 
03432000 T 0089 
03433000 T 0089 

106 1S 132 LONGs NEXT SEG 
03433100 T 0089 

START OF SEGMENT xk 44 eo He 
03433110 T 00914 
03433120 T 0091 
03433130 T 0091 

107 1S 64 LONGe NEXT SEG 
03434000 T 0091 
03435000 T 0094 

START OF SEGMENT tok ek Ke 
03436000 T 0092 

108 JS 11 LONG» NEXT SEG 
03437000 T 0092 
03437100 T 0095 
03437110 T 0096 
03438000 T 0097 
03439000 T 0098 

START OF SEGMENT #& 44 84 xe 
03440000 T 0099 
03441000 T 0099 
03442000 tT 0099 
03443000 T 0099 
03444000 Tt 0099 
03445000 T 0099 
03446000 T 0099 
03447000 tT 0099 
03448000 tT 0099 
03449000 T 0099 
03450000 T 0099 
03451000 T 0099 
03452000 T 0099 
03453000 T 0099 
03454000 T 0099 
03455000 YT 0099 
03456000 T 0099 
03457000 T 0099 
03458000 Tt 0099 
03459000 tT 0099 
03460000 Tt 0099 
03461000 T 0099 
03462000 T 0099 
03463000 T 0099 
03464000 T 0099 
03465000 T 0099 
03466000 T 0099 
03467000 T 0099 
03468000 T 0099 
03469000 t 0099 
03470000 T 0099 
03471000 T 0099 


97 
107 


97 


108 


97 


109 


C3 


O} 


CO) 


yen 


O 


0¢70004316473365100, 


0¢T0005402212262320, 0¢T0006702654737004, 03472000 T 

0670004463430126605, 07T0007600336454346s 00T0001540425607437.% 03473000 T 
0¢T0004070533151347>» 0¢T00051406662003644% 00T000503304 3640461» 03474000 T 
00T0002241654610575, 00T00027122277527345 00T0001474675745524, 03475000 T 
00T0002014055337051» 06T0004417070626663s 0CT000752270677H440> 03476000 T 
0CT0003447470573550» 00T00063614067325028 00T0005005571052122» 03477000 T 
OCTOH006207127264547 >» 0¢T0001650755141700» 0C0T0006223150372260» 03478000 T 
06T0007670002470733» 07T0007646003207120» 0¢T0005617404050743s 03479000 T 
00T0001163305063137% O¢T00074201662777715 OCTO001732422375777» 03480000 T 
0cT0002321127075377, Or TO00300535471 4677» 00700056 06650100057.» 03481000 T 
0¢170007150422120072, 0¢7T0003002526544103. 0070001603254275130, 03482000 T 
0¢T0004144127354356, 00T000747515524745144 0¢T0007034410524363, 03483000 Tf 
0¢10007664351264566, 00T0003641443541723» 0¢T0004611754472310; 03484000 T 
FILL tNLINerNTe*] WITH % FrLLS MUST BE IN ASCENDING ORpER FOR 03484100 T 
109 1S 138 LONGs 

% BINARY SEARCH IN FUNCTION AND DOTTINLINE, 03484120 T 

% INLINENT(1),£141] = 1 ONCE CODE FOR INTRINSIC 03484122 T 

% HAS BEEN EMITTED INLINE, 03484124 T 

% INLINESNTCLI,C2t10]=INDEX INTO 2°ND WORD OF THE 03484126 T 

% CORR ENTRY IN {NT, 03484428 T 

% INLINEINTC 1), £C12¢36)=NAME OF INTRINSIC, 03484130 T 

geek RST PILL MUST Be NUMBER OF INTRINSICS 2 2K RK Ke x 03484140 T 
34, 03484160 T 
START OF SEGMENT * 

"OOABS Wy, 03484780 T 
"OOATMAG "te 03484200 T 
"OOAINT 03484220 T 
"OOAMAXG "se 03484224 T 
"OOAMAX4 "a 03484228 T 
"OOAMING "es 03484232 T 
"OOAMING ‘Ts 03484236 T 
"OOAMOD "a 03484240 T 
"OOAND 03484260 T 
"OOCMPLX "a 03484280 T 
"OOCOMPL "»s 03484300 T 
"OOCONUG "s 03484320 T 
"OODABS ", 03484340 T 
"OODBLE "s 03484360 T 
"OODIM =, 03484380 T 
"OODSIGN "> 03484400 T 
"OOFQUIY Me 03484420 T 
"OOFLOAT >» 03484440 T 
"OOTABS "s 03484460 T 
"OOIDIM "te 03484480 T 
"OOIDINT "s 03484500 T 
"OOIFIX s 03484520 T 
"OOINT =e 03484540 T 
"OOISIGN "se 03484560 T 
MOOMAXO 03484564 T 
MOOMAXE 03484568 T 
"OOMINO ', 03484572 T 
"OOMING 03484576 T 
"OOMOD  ", 03484580 T 
"OOOR ", 03484600 T 
"OOREAL 03484620 T 
"OOSIGN ", 03484640 T 
MOOSNGL es 03484660 T 


0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
0099 
NEXT SEG 
0100 
0100 
0100 
0100 
0100 
0100 
0100 
0400 


ere. ee ss 


0101 
0101 
01014 
0101 
0104 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
0101 
9104 
0101 
0101 
0104 
0104 
0101 
0101 


97 


110 


"OOTIME 
0 3 


", 


FILL INT c*) WITH 


COMMENT THESE NAMES C1*ST WORN OF EACH TWO"WORD ENTRY) MUST BE IN 


; 


2% 


ASCENDING ORDER FOR BINARY LOOKUPS, 

THE SECOND WORD HAS THF FOLLOWING FORMATS 

of184) = 0 TF THE INTRINSIC DOES NOT HAVE A PERMANENT PRT 
LOCATION» OTHERWISE = 1. MAY BE RESET BY 
WRAPUP, SEF ,£19%6] BELOW, 


~f2'14) = TINTSEEN = 4 FFF INTRINSICS FUNCTION HAS BEEN SEEN, 
2f623) = ,INTCLASS = CLASS OF THE INTRINSIC, 
20993) = ,INTPARMCLASS = CLASS OF PARAMETERS, 


ef 1286] = ,INTINLINE = INDEX FOR DOITINLINE IF #09 OTHERWISE 

DO IT VIA INTRINSIC CALLe 
ef 2426) = gINTPRT = FIXED PRT LOCATIONs SEE 4f1t1] ABOVE, 
0€30%6] = sINTPARMS = NUMBER OF PARAMETERS REQUIRED BY THE INTe 
0036812) = eINTNUM & INTRINSICS NUMBER. 
THE FIELOS .0€3:3) AND ,£18:6) ARE SO FAR UNUSEDe 


Tok ICO IO IG IG IOI IOC GIGI IG IIGIOI OA kok foi aE tt 
Beaeeeeaeee TF YOU ADD AN INTRINSICs BE SURF TO CHANGE NUMINTML kxxxk ee 
Reet AT SEQUENCE NUMBER OOL55211eeeeeea THANK YOU, Bo Kk 
YH he ia ke akg kek tke ak igi kkk Ro kkk kk kook kkk ok kok fea doko a ie ak kok kk 


+ 4 
"ABS %, 


“ATMAG tt» 
WAINT %, 
"ALGAMA'» 
WALOGLIONN, 
WALOG ts 
*AMAXO tt, 
MAMAXY ty 
tAMENO ty 
WAMING ry 
WAMOD the 
AND ts 


MARCOS We 


"ARSIN tre 
WATAND ty 
WATAN tty 
"CABS Wy 
"CCOS Mp 
"CEXP  %, 
"CLOG te 
"CMPLX %, 
"COMPL '» 
"CONCAT"» 
"CONG 
"COSHH ‘ts 
"COS %» 
"COTAN "es 
#esyN Wy 
"CSQRT 
"DABS "sa 


0¢T00330;0000010007, 


06T0036020000010074, 
06T0033030000010054, 
007T0033000000010427, 
0cT0033000000010;103, 
00T2033000035010017, 
00T0031250000000031, 
0¢T0033250000000031, 
06T0034250000000032, 
06T0033250000000032, 
00T0033040000020063, 
0€T0033050000020;130, 
0CT0033000000010417,% 
00729330000320101416, 
0072033000044020114, 
0CT2033000037010016,% 
007T2036000045010053, 
OCTO0066000000010110, 
0¢T0066000000010100, 
006T0066000000010102, 
0¢7T0063060000020075, 
06T0033070000010132, 
0¢T0033000000050140, 
0070066110000010076, 
0CT0033000000010121, 
0¢T0033000000010015.% 
0¢70033000000010112, 
0¢T0066000000010106, 
0¢70066000000010124, 
0¢70055010000010052, 


03484680 T 
03484990 T 
110 18 36 LONG» 
03485000 
03486000 
03486010 
03486020 
03486030 
03486040 
03486050 
03486055 
03486060 
03486070 
03486080 
03486090 
03486100 
03486110 
03486120 
03486130 
03486140 
03486144 
03486145 
03486146 
03486147 
03486148 
03486149 
03487000 
START OF SEGMENT 
03488000 
03489000 
03490000 
03491000 
03492000 
03493000 
03494000 
03495000 
03496000 
03497000 
03498000 
03499000 
03500000 
03501000 
03501500 
03502000 
03503000 
03504000 
03505000 
03506000 
03507000 
03508000 
03509000 
03510000 
03511000 
03512000 
03513000 
03514000 
03515000 


AA HH HAHAHAHAHAHA HA ATA TA AA A AI AA KR BH AH HA AA HA Ht SR is 


0101 
0101 
NEXT SEG 
0101 
O104 
0101 
0101 
0101 
0101 
0104 
0401 
0104 
0101 
0101 
0101 
0101 
0101 
0104 
0101 
0101 
0101 
0101 
0101 
0101 
01014 
0104 
0404 
Tr erer Tr, 
0103 
01403 
0103 
04103 
0403 
0103 
0103 
0103 
0103 
04103 
0403 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 


97 


111 


sy 
eh 


Ce 


QO) 


C: 


"DATAN2t» 


WOATAN fe 
"DBLE 
"DCOS 
"DEXP We 
"DIM Ws 
"DLOGLOMNs 
"DLOG ts 


VDMAXL te 
"DOMINL "oe 
"DOMOD tte 
"OSIGN "ps 
"OSIN 
"DSQRT e 
"EQUIV 
"ERE We 
WEXP ) 
"FLOAT "es 
"GahMa it, 
"TABS = 
"IpIM > 
"IOINT te 
"TF IX %, 
"INT Ly 
“ISIGN tte 
WS ERRe tts 
* FBINBtte 
" FINAMe 
WeFONAMtS» 
W FREFRI¢ 
*,FREWR» 
WE TINT 
"OFTNIN's 
"OFTNOUts 
“ FTOUTt. 
", LABEL» 
"MATH W, 
" MEMHRY » 
MOXTOL 
"MAXO  , 
HMAXL 
YMINO tty 
MEN 
"MOD 
"OR a) 
"REAL tte 
"SIGN We 
"SINH 
"SIN tts 
"WSNGL tte 
“SQRT tt» 
"TANH tts 
"TAN "» 
“TIME fp 
03 


0¢T0055000000020115, 
0€672055000041010113e 
06T0053120000010062, 
0€T0055000000010107, 
06T2055000047010077, 
06T0033100000020072, 
0¢T0055000000010104, 
OCT20550000420101015 
0CT0055000000000066,» 
06T0055000000000067, 
007T2055000046020065- 
0¢T0055130000020071, 
0¢72055000043010105, 
0¢72055000050010123, 
0670033140000020133, 
0¢7T0033000000010125, 
0672033000033010020, 
0€6T0031150000010060, 
0¢72033000040010126, 
0¢70011010000010007, 
0cT0011100000020072, 
0cT0015240000010057,4 
0€70013030000010054, 
0€T0013030000010054, 
0CT0011160000020070» 
0€0T2000000030000134. 
0CT0000000000000160. 
OCTO000000000000154.s 
NCT0000000000000155, 
0€T00000000000001446, 
0€T0000000000000153>» 
0€T0000000000000050,% 
00T0000000000000156, 
06T0000000000000157, 
0cT00000000000000516 
0cT0000000000000021, 
0¢T0000000000000055, 
0¢670000000000000164, 
0cT0000000000000056, 
0¢T0011250000000135, 
0¢T0013250000000135, 
0¢T00112500000001 36, 
0¢70013250000000136, 
0¢T0011170000020137, 
0¢T0033200000020131, 
0¢T0036210000010073, 
06T0033160000020070,% 
00T0033000000010120» 
0CT203300003401001 4. 
0CT0035230000010061. 
0€0T203300003101001 3 
0€T0033000000010122, 
00T2033000036010411.5 
0€T0031220000010064. 


BLANKS*1NLINEINTEMAX*O) 3 


03516000 
03517000 
03518000 
03519000 
03520000 
03521000 
03522000 
03522500 
03523000 
03524000 
03525000 
03526000 
03527000 
03528000 
03529000 
03530000 
03531000 
03532000 
03533000 
03534000 
03535000 
03536000 
03537000 
03538000 
03539000 
03540000 
03540500 
03541000 
03542000 
03543000 
03544000 
03545000 
03546000 
03547000 
03548000 
03549000 
03550000 
03550500 
03551000 
03552000 
03553000 
03554000 
03555000 
03556000 
03557000 
03558000 
03559000 
03560000 
03561000 
03562000 
03563000 
03563010 
03563020 
03563030 
03563900 


AHN AHH AHHH HHH AHH AHA AA HA TA St ts A 5 st A tt A 


169 LONGs 


03563910 


T 


0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 
0103 


NEXT SEG 


0103 


) 


Ce HO “EOP 2 eG eG) 


Ge 


Oe Oe: FC) 


Ce “oy. GG 


os, 


LA 


6: 


FOR SCNei STEP 1 UNTIL BLANKS DO 
BEGIN 


FQVINDe TNLINEINTESCN]$ WHILE INTEMAXI#EQVIN DO MAXeMAX+2 3 
INL TNEINT£LSCNIZINTX@MAX41 3 
END 3 

INTID, SUBCLASS * INTYPE3 

REALID«SUBCLASS © REALTYPES$ 

FQVID « ",FQ000"$ 

LISTID t= ",L1000"; 


BLANKS ¢« "3 
ENDSEGTOG « TRUES 
SCN « 73 


“MAX «# REALCNOT FALSE), £9839): 
SUPERMAXCOM#128X(MAXCOM+1) 3 

SEGPTOG « FALSE ZINHIBIT PAGE SKIP AFTER SUBROUTINES 
END INITIALIZATION3 


4501¢ 


ALPHA PROCEDURE NEED(T» C)3 VALUE Tse C# ALPHA Te C3 
BEGIN INTEGER N$ REAL ELBAT3 


STACK(CF4+3) 3 .N 
STACK¢F4+4) = ELBAT 
REAL X3 
STACK(F45) = X 
LABEL X1T»s CHECK} 
eG ALPHA INFAs INFBs INFC3 
STACK¢F46) = INFA 
STACK¢F47) = INFB 
STACK¢F410) = INFC 
COMMENT NeFn RETURNS THE ELBAT WORD FOR THE IDENTIFIER T, 
1F THIS tS THE FIRST OCCURRENCE OF T THEN AN INFO WORD 1S BULLT AND 
GIVEN THEN CLASS C3 
ELBAT,C).ASS « C3 
XTA 4 T3 
IF C § LABELID THEN 
BEGIN 
IF N « SEARCH(T) = 0 THEN N « ENTERCELBAT» T) ELSE 
IF ELBAT « GETCN)eCLASS = UNKNOWN 
THEN PUTCN*®GETCNI&CETOCLASS])) 
ELSE IF ELBAT # C THEN FLOGC21)3 
GO TO XIT3 
END3 
IF N « SEARCHCT) = O THEN 
BFGIN 
IF N © GLOBALSEARCH(T) # 0 THEN GO TO CHECKS 
N « GLOBALENTERCELBATs T)3 
GO TO XIT3 
END? 
GETALLCNsINFArINFBo INFC)3 
IF INFA,CLASS = DUMMY THEN BEGIN N « INFC,BASES GO TO CHECK END 
TF BOOLEANCINFA eFORMAL) THEN GO TO CHECKS 
1F TNFALCLASS # UNKNOWN THEN 
BEGIN 
te N « GLOBALSEARCH(T) # 0 THEN GO TO CHECKS 
ELBAT. SUBCLASS « NFA, SUBCLASS: 
N « GLOBALENTERCELBATs T)3 
Go To XIT3 


97 IS 


03563920 
03563930 


03563940 
03563950 
03563960 
03564000 
03565000 
03566000 
03567100 
03568000 
03569000 
03570000 
03571000 
03571100 
03571300 
03572000 


AVAHHAAHA HAHA AHHH 


135 LONGs 


03573000 
03574000 


03574100 


03575000 
03576000 


03577000 
03578000 
03579000 
03580000 
03581000 
03582000 
03583000 
03584000 
03585000 
03586000 
03587000 
03588000 
03589000 
03590000 
03591000 
03592000 
03593000 
03594000 
03595000 
03596000 
03596100 
03597000 
03598000 
03599000 
03600000 
03601000 
03602000 
03603000 


T 
T 


AABH HHA HHH AHHH AHA ARAN TH 


0104 
0109 


0109 
0113 
0116 
0118 
0120 
0122 
0122 
0123 
0124 
0126 
0126 
0128 
0130 
0131 

NEXT SEG 
0506 
0506 


START OF SEGMENT x &# RRR Re 


0000 


0000 
0000 


0000 
0000 
0000 
0000 
0001 
0002 
0003 
0003 
0007 
0009 
0013 
0015 
0016 
0016 
0018 
0018 
0020 
0022 
0022 
0022 
0024 
0027 
0029 
0030 
0031 
0033 
0035 
0037 


6 


{12 


ptt 


C 


C) 


PRT( 707) = 


PRTC740) = 


PRTC7Ti1) = 


STACK¢F+3) 
STACKCF +4) 
STACK¢CF45) 


STACK¢OF 46) 
STACK¢CF 47) 
STACKEF 410) 


STACK¢F +11) 
STACKECF +12) 
STACKCF +13) 


STACKCF 414) 
STACK(F 415) 


STACK(F 416) 
STACK(F 417) 


E 
5 


S 


oa | oe 


il 


END; 
PUT(ne INFA & DUMMYCTOCLASSI93 


ELBATs»SUBCLASS « INFA »SUBCLASS3 


IF X « GLOBALSEARCH(T) = 0 THEN X ¢ GLOBALENTERCELBATs T)$ 


PUT¢(N+#25 INFC & XETOBASEJ)3 N «© X$ 
CHECK? 
INFA © GET(N)3 
IF ELBAT « INFA CLASS = UNKNOWN THEN 
BEGIN INFOCN.IReN,IC),CLASS * C3 GO TO XIT END? 
IF ELBAT # C THEN 
TF ELBAT = EXTID AND _ 
¢c = SUBRID OR C = FUNID) THEN 
tNFOLN,IReN,IC],.CLASS ¢« C 


ELSE IF CELBAT=SUBRID OR FLBAT= FUNID) AND C = EXTID THEN 


ELSE FLOG¢21)3 
XIT$ NEED # GETSPACECN)$ 
XTA « NAMES % RESTORE XTaA FOR DIAGNOSTIC PURPOSES 
END NEEn3 


INTFGER PROCEDURE EXPR¢(BIs VALUE Bs BOOLEAN B# FORWARD? 
XPR 
PROCEDURE SPLITCA)3 VALUE A# REAL AS 
PLIT 
BEGIN 
EMITPAIRCJUNK®e ISN)3 
EmMITOC4O* DIA)}3 
EmMITDC16* [S03 
EMITDESCLITCA)3 
EMITOCLOD)3 
EMITOPDCLITC JUNK )3 
EMITPAIR€255»CHS) 3 
EMITOCLND): 
END SPLYTT3 
BOOLEAN PROCEDURE SUBSCRIPTSCLINK»FROM)# VALUE LINK» FROM? 
UBSCRIPTS 
INTEGER LINKe FROM$ 
BEGIN INTEGER te NSUBS» BDOLINKS 


Nsups 
BDL yNK 
LABEL CONSTRUCT. XIT3 
REAL SUMs PRODs BOUND} 
SUM 
PROD 
= BOUND 
REAL INFAsINFBeINFC3 
= INFA 
= InNFB 
= INFC 
REAL SAVENSEGeSAVEADR 3 
= SAVENSEG 
= SAVEADR 
INTEGER INDX3 
= INDX 
REAL INFDs; 
= {NFD 


112 18 


START OF SEGMENT 


03604000 
03605000 
03606000 
03607000 
03607100 
03608000 
034609000 
03610000 
03611000 
03612000 
03613000 
03614000 
03615000 
03616000 
03617000 
03618000 
03618100 
03619000 

77 LONGe 
03620000 T 


AAH HAHAH HAA At 


03621000 T 


03622000 
03623000 
03624000 
03625000 
03626000 
03627000 
03628000 
03629000 
03630000 
03631000 
03632000 


AHA AHH AA HS 


03633000 T 
03634000 T 


03635000 T 
03636000 T 


03637000 T 


03637100 T 


03637200 T 
03637300 T 


0037 
0037 
0039 
0041 
0045 
0048 
0049 
0050 
0052 
0057 
0058 
0059 
0061 
0064 
0069 
0071 
0072 
0073 
NEXT SEG 
0506 


0506 


0506 
0506 
0507 
0508 
0509 
0509 
0510 
O511 
0512 
0513 
0513 


0513 
0513 


Wek Kok eK KK & 


0000 
0000 


0000 


0000 


0000 


0000 


6 


113 


C) 


) 


- 


© 


Q) 


C} 


} 


ie 


© 4 


© 


STACK¢CF +420) 
STACK ¢F 421) 


STACKEF 422) 


Migs TOG» VARF3 


VARF 
REAL SAVITS 
SAVIT 
pee rNe sS s LSTT#S 


1F DEBURTOG THEN FLAGROUTINEC™ SUBSc',"RIPTS ",TRUE ) 3 
SAVIT « 173 
LINK « GETSPACE¢LINK)3 
GETALLCLINKe INFAsINFBe INFC)$ 
IF InFA,CLASS # ARRAYID THEN 
BEGIN XTA « INFB$ FLOGC35)3 Go To XIT END? 
NSUBS «+ INFC,NEXTRAS 
IF FrRoM = 4 THEN 
BEGIN IF NSUBS GTR SAVESUBS THEN SAVESUBS $= NSUBS} 
IF NSUBS GTR NAMLIST£O) THEN NAMLISTLO] t= NSUBS; 
NAMLISTECNAMEIND),0€128] t= NSUBS3 
INFD t= GETCNEEDC™,SUBAR"sBLOCKID)),ADDR} 
ENN? 
BDLINK « INFC,ADINFO@NSUBS+413 
VARF « INFC «< O$ 
FOR + « 1 STEP 1 UNTYTL NSUBS 00 
BEGIN 
IT*rT+15 SAVENSEG*NSEG3 SAVEADR*ADR 3 
If EXPRCTRUE) > REALTYPF THEN FLAG(98)3 
Te ADR=SAVEADR THEN FLAGC36) 3 
tr VARE THEN 
1F EXPRESULT=NUMCLASS AND NSEGSSAVFNSFG THEN 
BEGIN 
ADR«SAVEADR 3 
EMI TNUMCEXPVALUE=] D3 
EnD ELSE EMITPAIRG¢ 4» SUB) 


F,,SE 

IF EXPRESULT=NUMCLASS AND NSEG = SAVENSEG AND FROM NEQ 4 THEN 
BEGIN 
ADR«SAVEADR? IF SSCITIJ*EXPVALUESO THEN FLAGC154) 3 
END 


ELSE SSLIT] « 893 
le FROM = 4 THEN 
BEGIN IF VARF THEN BEGIN EMITOCDUP)$ FMITPAIR(C1*ADD)3 ENDS 
EMITLCINOX)3 INDX t= INDX+#+43 
EMITDESCLITCINFD)3 
EMITOCIF VARF THEN STD ELSE STN)3 
END? 
Ip ¥ < NSUBS THEN 
BFGItN 
IF GLOBALNEXT # COMMA THEN 
BEGIN XTA ¢« INFBs FL0GC(23) END3 
SCANS 
END? 
END} 
IF GLOBALNEXT # RPAREN THEN BEGIN XTA « NFB? FLOGC24)3 END 
Fi.SE 1F FROM «< 2 THEN 
_ BEGIN SCANs IF PREC > 0 THEN FROM « 43 ENDS 
SUM «. 03 


03638000 


03639000 


03640000 
03641000 
03642000 
03643000 
03644000 
03645000 
03646000 
03647000 
03648000 
03649000 
03649100 
03649200 
03649230 
03649250 
03649300 
03649400 
03650000 
03651000 
03652000 
03653000 
03654000 
03655000 
03655500 
03656000 
03657000 
03658000 
03659000 
03660000 
03661000 
03662000 
03663000 
03664000 
03664100 
03664200 
03665000 
03665010 
03665100 
03665200 
03665300 
03665400 
03665500 
03666000 
03667000 
03668000 
03669000 
03670000 
03671000 
03672000 
03673000 
03673100 
03673200 
03674000 


4 
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0000 


0000 


0000 
0000 
0000 
0000 
0002 
0002 
0004 
0005 
0006 
0012 
0013 
0014 
0016 
0019 
0021 
0024 
0024 
0026 
0027 
0030 
0030 
0032 
0035 
0037 
0037 
0039 
0040 
0044 
0042 
0043 
0043 
0047 
0047 
0051 
0051 
0053 
0053 
0056 
0058 
0059 
0061 
0061 
0062 
0063 
0063 
0065 
0066 
0066 
0068 
0071 
0073 
0076 


TOG « VARF3 
IF VaRF THEN 
FOR } «+ NSUBS#=4 STEP #1 UNTIL 1 DO 
BEGIN 
IF BOUND « EXTRAINFOLCCBDLINK*BOLINK#1 )eIReBDLINKsIC] < O THEN 
EMITOPDCLITCBOUND) ELSE EMITNUMCBOUND)3 
EMITOCMUL)D$ 
EMITOCADD)3 


END 
FLSE 
FOR + + NSUBS STEP #1 UNTIL 14 DO 
BEGIN 
Ir 1 = 1 THEN BOUND « 1 ELSE 
— BOUND © EXTRAINFOLCRNLINK*RDLINK+41),IR»sBDLINK,ICI3 
Ie T « SSCSAVIT41] < @©9 THEN 
BEGIN 
SUM « CSUM+T*1)xBOUND3 
tf TOG THEN PROD « PROpxBOUNDS 
END 
FLSF 
BFGIN 
1F TOG THEN BEGIN EMYTNUMCPROD)S EMITOCMUL23 EMITOCADD) END 
ELSE ToG « TRUE; 
PROD « BOUND; 
SUM « (SUmM"1)xBOUND3 
End} 
END} 


IF VARF THEN T « ©93 
IF INFA.SUBCLASS 2 DOUBTYPF THEN 
BEGIN 
tr TOG THEN 
BrGIN 
IF T < @9 THEN EMITNUMC2XPROD) ELSE EMITLC2)3 
FMITOCMUL)S 
END? 
SuM « SUMx23 
END FLSe 
1F T < @9 AND TOG THEN BEGIN EMITNUMCPROD)$ EMITOCMUL) ENDS 
IF BOOLFANCINFA,CE) THEN 
SUM « SUM + 1NFC.BASF ELSF 
tr BOOLEANCINFA,FORMAL) THEN 
BEGIN EMITOPDCLIT¢CINFA, ADDR™1)# 
tf TOG THEN EMr1TO¢ADD) FLSE TOG « TRUE3 
END? 
IF BoOLEANCINFA,TWOD) AND FROM >0 THEN 
BEGIn 
Ip SUM = 0 THEN 
IF ToG THEN ELSE 
BEGIN 
EMITLCO)3 
EMITDESCLITCINFA,ADDR)3 
EMITOCLOD)$ 
EMITLCO)3 
GO TO CONSTRUCT; 
END 
ELSE 
tF TOG THEN 


03675000 
03676000 
03677000 
03678000 
03679000 
03680000 
03681000 
03682000 
03683000 
03684000 
03685000 
03686000 
03687000 
03688000 
03689000 
03690000 
03691000 
03692000 
03693000 
03694000 
03695000 
03696000 
034697000 
03698000 
03699000 
03700000 
03701000 
03702000 
03703000 
03704000 
03705000 
03706000 
03707000 
03708000 
03709000 
03710000 
03711000 
03712000 
03713000 
03714000 
03715000 
03716000 
03717000 
03718000 
03719000 
03720000 
03721000 
03722000 
03723000 
03724000 
03725000 
03726000 
03727000 
03728000 
03729000 


03730000 


03731000 
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0077 
0078 
0078 
0083 
0083 
0087 
0090 
0090 
0094 
0094 
0092 
0094 
0094 
0096 
0100 
0102 
0102 
0105 
0107 
0107 
0107 


0409 


0112 
0113 
0114 
0115 
O115 
0118 
O119 
0120 
0121 
0121 
0122 
0126 
0127 
0127 
01286 
0128 
0132 
0133 
0135 
0137 
0440 
0142 
0142 
0144 
0145 
0145 
0147 
0147 
0148 
0149 
0150 
0151 
0151 
0151 
0151 


BEGIN 
EMI TNUMCABSC(SUM))3 


If SUM < O THEN EMITOCSUB) ELSE EMITOCADD)S 
FNnD ELSE 
BFGIN 
EMtTL¢SUM,(33%7))3 
EMI TDESCLITCINFARADNRD)S 
EMrTO¢CLOD); 
EMITL¢SUM,649028))3 
GO TO CONSTRUCT3 
EnD? 
SPLITCINFA,ADDRD3 
CONSTRUCT: 
IF BOOLEANCFROM) THEN 
BFGIN 
IF INFA, SUBCLASS > DOUBTYPE THEN 
BEGIN 
EMITOCCDC): 
EMITOCHUP)3 
EMITPAIR( Ls XCH)3 
EMITOCINX)3 
EMITOCLOND)3 
EMITOCXCH)3 
EMITOCLOD 3 
END ELSE EMITOCCOC)3 
END FLSE EMTTOECDC): 


END else 
BEGIN 
TF SUM = O THEN tr NOT TOG THEN FMITL(O) ELSE 
ELSE 
BEGIN 
1p TOG THEN 
BEGIN 
EMITNUMCABS(SUM))3 
IF SUM < 0 THEN EmITOCSUB) ELSE EmMITOCADD)3 
END 
E)SE EMITNUMCSUM)$ 
END? 


IF FROM > O THEN 
IF BOOLEAN CFROM) THEN 

IF INFAsSUBCLASS > DOUBTYPE THEN 

BEGIN 
EMITDESCLITCINFAsADDRI3 
EMITOCDUP)3 
EMITPATR(1» XCH)3 
EMITOCINX)3 
EMITOCLOD); 
EMYTOCXCH)3 
EMYTOCLOD)3 

END ELSE EMITVCLINK) ELSE 


BEGIN DFSCREQ « TRUE’ EMITNCLINK)S DESCREQ « FALSE END 


END? 

XT! 

tT « SAVIT? 

SUBSCRIPTS « BOOLEAN¢CFROM)3 


1F DEBUGTOG THEN FLAGROUTINEC’ SUBSC'»"RIPTS "sFALSE) 3 
END SUBSCRIPTS3 


03732000 
03733000 


03734000 
03735000 
03736000 
03737000 
03738000 
03739000 
03740000 
03741000 
03742000 
03743000 
03744000 
03745000 
03746000 
03747000 
03748000 
03749000 
03750000 
03751000 
03752000 
03753000 
03754000 
03755000 
03756000 
03757000 
03758000 
03759000 
03760000 
03761000 
03762000 
03763000 
03764000 
03765000 
03766000 
03767000 
03768000 
03769000 
03770000 
03771000 
03772000 
03773000 
03774000 
03775000 
03776000 
03777000 
03778000 
03779000 
03780000 
03781000 
03782000 
03783000 
03784000 
03785000 
03785100 
03786000 
03787000 
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0152 
0152 
0153 
0157 
0157 
0157 
0158 
0460 
0160 
0162 
0162 
0162 
0163 
0164 
0164 
0164 
0166 
0166 
0167 
0168 
0169 
0169 
0170 


O171— 


0172 
0173 
0174 
0174 
0175 
0178 
0178 
0479 


0179 . 


0179 
0180 
0184 
0184 
0185 
0185 
0186 
0186 
0188 
0189 
0190 
0191 
0192 
0192 
0193 
0194 
0195 
0196 
01499 
0199 
0499 
0199 
0200 
0202 


i 


() 


oN 
Nel 


PRTI(712) = 


STACK CF 43) 
STACKCF+4) 


STACK CF 45) 
STACK EF 46) 
STACK¢eFs7) 
STACK eF 410) 
STACK¢F411) 
STACK ¢F +12) 


ROOLEAN PROCEDURE BOUNDSCLINK)$S VALUE LINK’ REAL LINK 
BOUNDS 
BEGIN 
COMMENT CALLED TO PROCESS ARRAY BOUNDS; 
BOOLEAN VARFe SINGLETOG} 
= VARF 
= SINGLETOG . 
DEFINE FNEW = LYNK#$3 
, REAL Ts NSUBS» INFAs INFBs INFC, FIRSTSS3 
= T 
= NSuBS 
= INFA 
= NFB 
= INFC 
= FrRSTSS 
LABrFL LOOP? 
IF DEBUGTOG THEN FLAGROUTINEC# Bou", "NDS ", TRUE ) 


GETALLCFNEWs INFAse INFBe INFC)3 
FIRSTSS « NEXTSS$ 


IF LINK < 0 THEN BEGIN SINGLETOG « TRUES LINK * ABSCLINK) END3 


LOOP: 
IF wEXT = [D THEN 
BEGIN 


T « GETCFNEXT «+ GETSPACECFNEXT))3 
IF TeCLASS # VARID OR NOT BOOLEANCT.FORMAL?) THEN FLAG( 92) ELSE 
IF T,SUBCLASS > REALTYPE THEN FLAGC93)3 


T © =T,ADDR3 
VARF « TRUES 


END ELSE 
IF NEXT = NUM THEN 
BEGYN 


1F NUMTYPE4INTYPE THEN FLAGC113) 3 


IF TeFNEXTSO THEN FLAGC122) 
1F NOT VARF THEN +F NSUBS = 
LENGTH « LENGTHXFNEXT3 


END ELSE FLOGC122)3 ; 
EXTRAINFOPNEXTSS, TReNEXTSS,7C1 « T3 
NEXTSS « NEXTSSe43 

NSUBS « NSUBS4_3 

SCANS 

IF wEXT = CoMMA THEN BEGIN SCAN} 
IF wEXT # RPAREN THEN FLOG(94)3 
XTA © INFB3 ; 
IF INFAeCLASS = ARRAYID THEN FLAGC95)3 
INFAsCLASS « ARRAYID3 
IF VARF THEN 
BEGIN 
TF NOT BOOLEANCINFA.FORMAL) THEN FLAGC96)3 


Tr NSUBS > 1 OR INFA 


LENGTH 


END FLSE 
IF NOT SINGLETOG AND INFA,SUBCLASS > LOGTYPE THEN 


® 
A 


QO THEN LENGTH « FNEXT ELSE 


GO To LOOP END: 


; 


»SUBCLASS 2 DOQUBTYPE THEN 
BEGIN BUMPLOCALSILENGTH*LOCALS + 15363BOUNDS*TRUE END ELSF 
“"EXTRAINFOLFIRSTSS, IRs FIRSTSS,ICJ3 


4109" 


4109" 


%109= 


03789000 
03790000 
03791000 


START OF SEGMENT 


03792000 
03793000 


03794000 
03795000 
03796000 
03797000 
03798000 
03799000 
03799500 
03800000 
03801000 
03802000 
03802100 
03803000 
03804000 
03805000 
03806000 
03807000 
03808000 
03809000 
03810000 
03810010 
03812000 
03813000 
03814000 
03815000 
03816000 
03817000 
03818000 
03819000 
03820000 
03821000 
03822000 
03823000 
03827000 
03828000 
03829000 
03830000 
03831000 
03832000 
03833000 
03834000 
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NEXT SEG 
0513 


0513 
0513 
0513 


ok ROK 


0000 
0000 


0000 
0000 
0000 
0000 
0002 
0003 
0004 
0007 
0008 
0008 
0009 
0011 
0015 
0020 
0022 
0022 
0022 
0024 
0024 
0026 
0029 
0032 
0033 
0035 
0038 
0039 
0040 
0041 
0043 
0045 
0046 
0048 
0050 
0050 
0051 
0053 
0055 
0061 
0067 
0067 


6 


114 


C) 


QO 


Q 


C) 


O 


BEGIN LENGTH « 2 x LENGTH3 BOUNDS « TRUE END} 7109« 03834500 c 0069 
IF LENGTH > 32767 THEN FLAG(99);3 03835000 T 0072 
INFO « LENGTH & NSUBSCTONEXTRAJ] & FIRSTSSLTOADINFOW 03836000 T 0074 
TF VARF THEN INFO « #INFC3 03837000 T 0076 
PUTeFNEWs. INFADS PUTCFNEWS2, INFC)3 03838000 T 0078 
SCANS 03839000 T 0084 
IF DEBUGT0G THEN FLAGROUTINECH Bout, "NDS ",FALSE) 3 03840000 T 0081 
END BoUnDS; 03841000 T 0083 
114 1S 91 LONG» NEXT SEG 6 
PROCEDURE PARAMETERSCLINK)$ VALUE LINK? REAL LINKS 03842000 T 0513 
PRTC713) = PARAMETERS 6 
BEGIN 03843000 T 0513 
03844000 T 0513 
03845000 T 0513 
LABEL LOOPS 03846000 T 0513 
START OF SEGMENT *+#ee#eeeee 115 
REAL NPARMS» EX» INFC*# PTYPE3 03847000 T 0000 
STACK(F+2) = NPARMS 
STACKCF+3) = EX 
STACK(F+4) = INFC 
STACK¢CF45) = PTYPE 
. ALPHA FXPNAMES 03848000 T 0000 
STACK¢F46) = EXPNAME 
. BOOLEAN CHECK» INTFIDS 03849000 T 0000 
STacKeFs47) = CHECK 
STACKeF+190) = INTFID 
win BOOLEAN NOTZEROP3 03850000 T 0000 
STACK¢F411) = NOTZEROP 
REAL SAVIT3 03851000 T 0000 
STACKeF412) = SAVIT 
DEFINE PARMTYPE = LSTT#3 03852000 T 0000 
SAVIT « IT # IT+43 03853000 T 0000 
IF DEBUGTOG THEN FLAGROUTINEC” PARAMfs"ETERS "2TRUE ) 3 03854000 T 0001 
INFC « GETCLINK#+2)3 03855000 T 0003 
IF CHECK « BOOLEANCINFC,.£1813]) THEN 03856000 T 0005 
BEGIN 03857000 T 0006 
EX « INFC,ADINFO3 03858000 T 0007 
NOTZEROP « INFC,NEXTRA # 03 03859000 T 0008 
-INTFIO © INFC,£36812] = 13 03859500 T 0010 
ENDS 03860000 T 0012 
LOOP: 03861000 T 0012 
BEGIN SCANS3 03862000 T 0012 
EXPNAME «© NAMES 03863000 T 0012 
If GLOBALNEXT = 0 AND NAME = "$ " THEN 03864000 T 0013 
BFGIN EXPRESULT © LABELID$ SCAN} 03866000 T 0015 
IF GLOBALNEXT # NUM THEN FLAGC44)3 03867000 T 0016 
EMITLABELDESCCNAMF) 3 03868000 T 0018 
PTYPE « O03 03869000 T 0019 
SCANS 03870000 T 0020 
END 03871000 T 0020 
ELSF PTYPE « EXPRCCHECK AND EXTRAINFOFEX.IRsEX.ICI], CLASS 03872000 T 0020 
= EXPCLASS AND JNTFID)3 03873000 T 0027 
If EXPRESULT = NUMCLASS THEN 03874000 T 0030 
IF PTYPE = STRINGTYPE THEN 03875000 T 0034 
BEGIN 03876000 T 0032 
ADR « ADR = 13 03876500 T 0032 
PTYPE « INTYPE3 03877000 T 0034 


C) 


Cy~ hor Yr. Qe Ae SG Ae AED 


Cy 


EXPRESULT « SUBSVAR} 
IF STRINGSIZE = t AND 
CT «© EXTRAINFOLEXeIR»eEXeIC],.CLASS = VARID OR 
T = EXPCLASS) THEN 
BEGIN 
EXPRESULT « EXPCLASS3 
EMITNUMCSTRINGARRAY(0])3 
ENN ELSE 
BEGIN 
EXPRESULT*ARRAYID 3 
EMITPArTRCPRGDESCBLDOR( 1502 0sNXAVILENXAVILeL 2 LOD) 
EMITL¢O)3 
WRITEDATACSTRINGS1ZFe NXAVIL»® STRINGARRAYDS 
ENDS 
END ELSE FXPRESULT « EXPCLASS3 
PaARMTYPEFIT) « O & EXPRESULTETOCLASS] & PTYPELTOSUBCL]3 
XTA « EXPNAME3 
IF TSSEDITOG THEN IF ¢EXPRESULT=FUNID OR EXPRESULT=SUBRID OR 
EXPRESULTSEXTID) AND NOT NCINPUT THEN TSSEDCXTAs>) 3 
Ir DCINPUT THEN IF EXPRESULT=FUNID OR EXPRESULT=SUBRID 
OR EXPRESULT=EXTID THEN FLAG(151) 3 
If CHECK THEN 
BEGIN 
IF T © EXTRAINFOCEXeIReEXeICJaCLASS # EXPRESULT THEN 
CASE T OF 
BEGIN 
PRTC714) = «CASE STATEMENT DESCRIPTOR 
FXTRAINFOLEX,IR*EX.IC)] «© O & EXPRESULTETOCLASS) 
& PTYPEETOSUBCLI3 
IF EXPRESULT # SUBSVAR THEN FLAG(66)3 
IF EXPRESULT = SUBSVAR THEN 
1F NOT JNTFID THEN 
BEGIN EMITOCCDC)3 
IF PTYPE 2 pOUBTYPE THEN EMITL¢COD3 
END ELSE 
FLSE 
IF EXPRESULT = EXPCLASS THEN 
BEGIN IF PTYPE 2 pOURTYPE THEN FMITOCXCH)3 
EXTRAINFOLCEX,IReEXeIC}.CLASS «# EXPCLASS 
END ELSE FLAG¢67)3 
33 
FLAGC6B)3 
IF EXPRESULT = EXTID THEN 
PUTCEXpLINKe GETCEXPLINK&FUNIDETOCLASS)) ELSE 
FLAG(69)3 


; 
IF EXPRESULT = FUNID OR EXPRESULT = SUBRID THEN 
EXTRAINFOCEXe«IReEXeIC] «+ EXPRESULT ELSE FLAGC70)3 
IF EXPRESULT = EXTID THEN 
PUTCEXPLINKeGETCEXPLINK)&SUBRIDITOCLASS]) FLSE 
FLAGC7133 
a 
IF EXPRESULT = ARRAY1D THEN EXTRAINFOLEX¢IReEXsIC],CLASS 
« ARRAYID ELSE 
IF EXPRESULT = VARIN THFN 
BEGIN 
EXTRAINFOCEX,IReEXeIC),CLASS « SBVEXP3 


03878000 
03879000 
03880000 
03881000 
03882000 
03883000 
03884000 
03885000 
03886000 
03887000 
03888000 
03889000 
03890000 
03891000 
03892000 
03893000 
03894000 
03894050 
03894060 
03894100 
03894200 
03895000 
03896000 
03897000 
03898000 
03899000 


03900000 
03901000 
03902000 
03903000 
03903100 
03903450 
03903200 
03903400 
03903500 
03904000 
03904100 
03904200 
03905000 
03906000 
03907000 
03908000 
03909000 
03910000 
03911000 
03912000 
03913000 
03914000 
03915000 
03916000 
03917000 
03918000 
03919000 
03920000 
03921000 
03922000 


AHHH HAHAHAHA HHA a 


AA AHA HAH HA HA A A HH st ta te 


0034 
0035 
0036 
0040 
0041 
0041 
0042 
0043 
0043 
0044 
0044 
0048 
0048 
0050 
0050 
0051 
0055 
0055 
0058 
0062 
0064 
0067 
0068 
0068 
0072 
0073 


0073 
0077 
0079 
0081 
0082 
0083 
0084 
0086 
0086 
0087 
0088 
0090 
0093 
0096 
0096 
0098 
0098 
0104 
0103 
0103 
0105 
0110 
O1lt 
0114 
0116 
0116 
0119 
0121 
0122 
0123 


(1 


CY CY 


C) 


EMITL¢O) 03923000 T 0127 

END ELSE 03924000 T 0127 

IF EXPRESULT = EXPCLASS THEN 03925000 T 0128 
BEGIN 03926000 T 0129 
EXTRAINFOTEX,IReEXeIC],CLASS « SBVEXP3 03927000 T 0430 

IF PTYPE 2 DOUBTYPE THEN EMITO¢CXCH) ELSE EMITL(0)3 03928000 T 0134 

END ELSE FLAGC7293 03929000 TY 0437 

IF EXPRESULT = SUBSVAR THEN 03930000 T 0139 
IF NOT INTFID THEN 03930100 T 0140 
BEGIN EMITOCCDC)3; 03930200 T O141 

IF PTYPE 2 DOUBTYPE THEN EMITL(CO) 03930300 T 0142 

END 03930400 T 0143 

ELSE , 03930500 T 0144 
ELSE IF EXPRESULT = VARID THEN 03930600 T 0144 
IF NOT INTFID THEN 03930650 T 0146 

IF PTYPE 2 NOURTYPE THEN EMITLCO) ELSE ELSE 03930700 T 0147 

ELSE FLAGC67)3 03930800 T 0150 

IF EXPRESULT = VARID THEN 03931000 T 0152 
EMITLCO) ELSE 03932000 T 0153 

IF EXPRESULT = EXPCLASS THEN 03933000 T 0154 
IF PTYPE 2 DOUBTYPE THEN EMITOCXCH) ELSE EMITLCO) 03934000 T 0155 
FLSE IF EXPRESULT # SUBSVAR THEN FLAGC67)3 03935000 T 0158 
END OF CASE STATEMENT 03936000 T 0162 
ELSE YF PTYPE 2 DOUBTYPE THEN 03936100 T 0162 


START OF SEGMENT *#e&KRRHeERE 946 
116 158 17 LONGs NEXT SEG 115 


IF EXPRESULT = VARID THEN EMITL(O) 03936200 T 01464 

ELSE JF EXPRESULT = EXPCLASS AND NOT INTFID 03936300 T 0166 

THEN EMI TOCXCH)? 03936400 T 04167 

IF T « EXTRAINFOLEX.IRe EX.IC],SUBCLASS = O OR 03937000 T 0169 

(T = INTYPE AND PTYPE = REALTYPE AND 03938000 T 0173 
GETCLINK).SEGNO = 0) THEN 03939000 T 0175 
EXTRAINFOLEXeI Re EXe IC] «SUBCLASS « pPTYPE ELSE 03940000 T 0177 

IF NOTCT = PTYPE OR T = REALTYPE AND PTYPE = INTYPE ) THEN 03941000 T 0182 
FLAGC8B)3 03942000 T 0185 

END OF CHECK 03943000 T 0187 

FLSE IF PTYPE 2 DOUBTYPE THEN 03943100 T 0187 

IF EXPRESULT = VARID THEN EMITL¢O) 03943200 T 0188 

ELSE IF EXPRESULT = EXPCLASS THEN EMITOCXCH)3 03943300 T 0190 

IF NOTZEROP THEN EX #« EX413 03944000 T 0193 
IT © 1T+#13 03945000 T 0195 
ENDS 03946000 T 0196 
IF GLORALNEXT = COMMA THEN GO TO LOOP$ 03947000 T 0196 
NPARMS « JT ™ SAVIT3 03948000 T 0197 
1F GLOBALNEXT # RPAREN THEN FLOG(108)3 03949000 T 0199 
IF NOT CHECK THEN ; 03950000 T 0201 
BEGIN 03951000 T 0201 
INFO « GETCLINK+2)3 03952000 T 0202 
INec © wCINFC & NPARMSCTONPXTRA 03953000 T 0203 
& NEXTEXTRALTOADINGOW)3 03954000 T 0205 
PUTECLINK+2eINFC)3 ~ 03955000 T 0206 
FOR 7 «+ SAVIT STEP 1 UNTIL IT#1 DO 03956000 T 0208 
BEGIN 03957000 T 0212 
EXTRAINFOFNEXTEXTRAgIRsNEXTEXTRA,IC] « PARMTYPELI)3 03958000 T 0212 
NEXTEXTRA «© NEXTEXTRA+4? 03959000 T 0215 

EnD3 03960000 T 0217 
END 03961000 T 0217 


Oe i a 


QC) 


C} 


ELSE 03962000 T 0217 
IF T ¢« GETCLINK+2),NEXTRA > O AND T # NPARMS OR 03963000 T 0217 
T=0 AND INTFID AND NPARMS < 2 OR 03964000 T 0221 
T = 0 AND NOT INTFID THEN 03964500 T 0224 
BEGIN XTA * GETCLINK#1)3 FLAGC28) END3 03965000 T 0226 
1F DEBURTOG THEN FLAGROUTINEC* PARAM™SA"ETERS ",FALSE) 3 03966000 T 0229 
1T «© SAVIT#13 03967000 T 0231 
FND PARAMETERSS 03968000 T 0232 
115 1S 239 LONGs NEXT SEG 6 
PROCEDURE STMTFUNREFCLINK)$ VALUE LINK REAL LINK3 03969000 T 0513 
PRT¢(715) = STMTFUNREF 
BEGIN 03970000 T 0513 
REAL Te» PARMLINKs NPARMS» SEG? 03971000 T 0543 
: START OF SEGMENT *exe ke RRR 117 
STACK¢eF42) = J 
STACK¢F43) = PARMLINK 
STACK¢F44) = NPARMS 
STACK¢(F45) = SEG 
IF DEBUGTOG THEN FLAGROUTINEC® STMTF"™,"UNREF ",TRUE ) 3 03971010 T 0000 
PARMLINK « GETCLINK+2),€36:12]3 03972000 T 0002 
Do 03973000 T 0004 
BEGIN 03974000 T 0005 
SCAN$ 03975000 T 0005 
IF AeEXPRCTRUE) # BeGETCPARMLINK).SUBCLASS THEN 03976000 T 0005 
IF A > REALTYPE OR B > REALTYPE THEN 7108" 03977000 P 0008 
BEGIN XTA «* NNEWS FLAGC8B) ENDS 03978000 T O01} 
PARMLINK « PARMLINK#=33 03979000 T 0013 
NPARMS * NPARMS#13 03980000 T 0014 
FND UNTIL NEXT # COMMA} 03981000 T 0015 
1F NEXT # RPAREN THEN FLOGC(108)3 03982000 T 0016 
SCANS 03983000 T 0018 
GETALLCLINKe INFAs XTAs INFC)3 “03984000 T 0019 
1F NPARMS # INFC.NEXTRA THEN FLAGC28)3 03985000 T 0020 
SFG ¢ INFA,SEGNO3 03986000 T 0023 
RBRANCHLITCINFC, BASE&SSEGETOSEGNOJsFALSE DS 03987000 T 0024 
FMITBCINFA,ZADDR & SEGETOSEGNOJ+ FALSE)3 03988000 T 0027 
ADJUSTS 03989000 T 0029 
TF DEBURTOG THEN FLAGROUTINEC’ STMTFE™,"UNREF FALSE) 3 03989010 T 0030 
END STMTFUNREFS 03990000 T 0032 
117 1S 37 LONGs» NEXT SEG 6 
BOOLEAN PROCEDURE DOITINLINECLNKIS VALUE LNK# REAL LNK 3 03990010 T 0513 
PRTC716) = DOITINLINE 
BEGIN 03990020 T 0513 
REA, ColeCivCasC3eCaeCsS 3 03990030 T 0513 
START OF SEGMENT #4eeeeekee 118 
STACKCF+3) = C 
STACKCF 44) = I 
STACKCF+5) = Cf 
STACK¢F+6) = C2? 
STACK(F47) = C3 
STACK(F410) = C4 
STACKCF411) = ¢5 
LABEL HUNT» FOUND ® XIT#AIMAGR AINTs CMPLXeLOOPsDDTI14eSNGL 3 03990040 T 0000 
DEFINE OPTYPESLSTT#, FO=FMrTO#, EPSEMITPAIR#, EOLSEMITOPDCLIT# 3 03990045 T 0000 
IF NEBUGTOG THEN FLAGROUTINEC™DOITIN’»"LINE ".TRUE) 3 03990047 T 0000 
Clea? C2eINLINEINT(OI3 C3eGETCABSCLNKI41) 3 03990050 T 0002 
HUNT? 03990060 T 0005 


IF ¢CetNLINEINTLCT#CC1+C2), 0362147), INAM)<C3 THEN Clel+i 03990070 T 0006 

ELS YF C>C3 THEN C2*I=1 ELSE GO FOUND 3 . 03990080 T 0010 

IF ¢1¢C2 THEN GO HUNT 3 03990082 T 0016 

IF pNLINEGNT£C1),2NAM#C3 THEN 03990084 T 0047 

BEGIN 03990086 T 0049 

IF LNK<O THEN DOITIN, INE*BOOLEANCLOOKFORINTRINSICC#LNK)) ? 03990088 T 0019 

Go XIT 3 03990090 T 0022 

_ END 3 03990092 T 0023 

1eCq 3 03990094 T 0023 

FOUND! 03990096 T 0023 

ClecCeINTEC2eCCH*INLINEINTCIJ) ¢ INTXJ)¢INTPARMCLASS 3} 03990098 T 0024 

IF LNK<O THEN 03990100 T 0027 

BEGIN 03990102 T 0028 

Te@LNK$ DOITINLINE*ROOLEANCLNK*NEEDCC3*eFUNID)) 3 03990104 T 0029 

IF (C2¢GETCLNK4+2)9<0 THEN GO XIT 3 03990105 T 0032 

PUTCLNK +29 "(C28 CleCe INTPARMS) £LTONEXTRAJ&NEXTEXTRALTOADINFO1)) 3 03990108 T 0034 

FOR Tel STEP "4 UNTIL 4 DO 03990112 T 0039 

BEGIN 03990114 T 0041 

EXTRAINFOCNEXTEXTRA, IReNEXTEXTRA, IC] ©OREXPCLASSCETOCLASS) 03990116 T 0041 

&CILTOSUBCL] 3 03990117 T 0044 

NEXTEXTRA*NEXTEXTRAF1 3 03990118 T 0046 

END 3 03990420 T 0047 

INFOLLNK, PReLNKsIC),SURCLASS*#CaINTCLASS 3 03990122 T 0049 

GO XT 3} 03990124 T 0054 

END $ 03990126 T 0054 

IF ROOLFANCLNK,C231)) THEN . 03990127 T 0054 

STACKHFADEGETCCNEXTINFOeNEXTINFO"3)41) MOD SHXI*GETCNEXTINFO) LINK 3 03990128 T 0055 

° LNKeC.INTINLINE? INTEC2ILINTSEEN]1? DOTTINLINE «TRUE 3 03990130 T 0060 

IF c4>0O THEN INLINEINTri]e"C4s 40 3 03990132 T 0065 

IF XREF THEN ENTERX¢(C3-08&FUNIDETOCLASSI&C£9116:23)93 03990734 T 0068 

IF GLOBALNEXT#LPAREN THEN BEGIN FLOGC106)$ GO XIT END 3 03990136 T 0072 

LOOP? SCANS C5eXTA 3 03990140 T 0075 

IF ,=0 THEN 03990145 T 0076 

IF LNK=10 THEN EMITLCO) ELSE IF UNK=2q THEN EMITDESCLITC?) 3 03990150 T 0077 

IF ¢C4eEXPRCTRUE))#C1 AND CCI1#RFALTYPE OR C4#INTYPE) THEN 03990160 T 0082 

— BEGIN XTAsC53 FLAGC88)3 C2e"2 END 3 03990165 T 0085 

Telei3 IF GLOBALNEXT=COMMA THEN GO LOOP 3 03990170 T 0088 

IF GLOBALNEXT#RPAREN THEN BEGIN FLOG(108)3 C2¢"2 ENDS SCAN 3 03990180 T 0091 

IF t#C,INTPARMS THEN IF C.INTPARMS#0 OR I<? THEN 03990190 T 0094 

BFGIN XTAeC33 FLAGC28)3 Cae"2 END 3 03990195 T 0098 

OPTYPELITI©C,INTCLASSS IF C2<0 THEN GO XIT 3 03990200 T 0101 

CASrF ¢LNK#1) OF 03990210 T 0104 

. _ BEGIN 03990220 T 0105 
PRTC747) = *CASE STATEMENT DESCRIPTOR 

FOCSSP) $ ¥ @13 ABS» DABS» IABS, 03990230 T 0106 

AIMAG? FOCDEL) 3 % @2% ATMAG, 03990240 T 0107 

AINTS EPC1eIDV) § % @38 AINT, IF Xe INT, . 03990250 T 0109 

FOCRDV) § % @4: AMOD: 03990260 T O111 

FOCLNN) # ¢ @5% LOGICAL AND, 03990270 T 0112 

CMPLX3 FOCXCH) 3 % @6t CMPLX, . 03990280 T 0114 

EOCLNG) # % @7! LOGICAL COMPLIMENT (NEGATION), 03990290 T 04145 

03990294 T 0116 

BEGIN % @70! DIMs IDM, 03990300 T 0416 

FoCSUB); EoCDUP): EPCO#LESS) 3 03990310 T 0116 

IF ADR>4082 THEN BEGIN ADReADR+1$ SEGOVF END 3 03990315 T 0119 

EpC2eBFC)$ EOCDEL)# EMITLCO) 3 03990320 T 0122 

END 3 03990330 T 0124 


© 


poe 


ea 


© 


@ 


Ce OR AE hg 


Ce Aa SG 3) 


Ch 3 


e 


C) 


03990331 T 0125 

BEGIN EQCXCH)# EQCCHS)$ GO CMPLX END 3 % @11% CONJG, 03990340 T 04125 
3 % C122 NBLE CSOME CODE ALREADY EMITTED ABOVE), 03990350 T 0128 
03990351 T 0128 

BEGIN EOCXCH)$ EOCDEL) § % @13% DSIGN, 03990360 T 0128 
DOT1113 EMITDDTC1.191) 3 03990370 T 04130 
FND 3 03990380 T 0131 
03990381 T 0131 

FOCLQV) 3 % @14% LOGICAL EQUIVALENCE, 03990390 T 0131 
$ % @15% FLOAT, 03990400 T 0133 
GO DDT111 # & @16% ISIGNe SIGN, 03990410 T 0133 
BEGIN EOCRDVIs GO AINT END 3 & @17% MOD, 03990420 T 0133 
FOCLOR) § % @20! LOGHCAL OR, 03990430 T 0135 
RFGIN EOCXCH)? GO AIMAG ENn 3 % ©2141: REAL, 03990440 T 0136 
FPci,KOM) § % @228 TyMr, 03990450 T 0138 
03990460 T 0139 

BFGIN &% @23% SNGL, 03990470 T 0439 
SNGL! EP¢9sSND)3 EOCXCH)S EMITDDTC47,9,1)% EMITLCO) 3 03990480 T 0439 
EMI TDDT¢929+38)% EQL¢9)3 EMITOCADD)$ TF LNK=20 THEN GO AINT 3 03990490 T 07443 
END 3 03990500 T O447 
03990510 T 0448 

GO SNGL ¢ % @24t IDINT, 03990520 T 0148 
03990530 T 0148 

BEGIN % @25% AMAXOsAMAX1*#AMINO# AMINE eMAXOsMAXS sMINO*MING g 03990535 T 0148 
% SOME CODE ALREADY EMITTED ABOVE, 03990540 T 0148 

IF ADR>4068 THEN REGIN ADR«ADR4+13 SEGOVF END } 03990542 T 0148 
EPC9eSTDI3 FOCDUP)S FOLC9) 3 03990545 T 0151 
EOCIF C3,f24867="A" OR C3,72486)="X" THEN LESS ELSE GRTR) 3 03990550 T 0154 
EPC2eBFC)3 EOCDEL)# FOLCI)$ EQCXCH)S FOCTOP)! EOCLNG) 3 03990555 T 0159 
EP¢14sBRC)3 EOCDELI3 If C3="MIN1 ™ OR C3="MAX4 “ THEN GO AINT 03990560 T 0163 
FND 3 03990565 T 0167 
03990566 T 0168 

END OF CASE STATEMENT 3 03990800 T 0168 


START OF SEGMENT #exeKeeEKRR 119 

119 4S 272 LONGs NEXT SEG 118 
XIT# 03990810 T 0169 
IF NEBUGTOG THEN FLAGROUTYNEC’DOITING’,» "LINE "“pFALSE) 3 03990815 T 0169 
END OF DOYTINLINE # 03990800 T 0474 

118 IS 180 LONGs NEXT SEG 6 


REAL PRaCEDURE LOOKFORINTRINSIC¢eLI§ VALUE 43 REAL L? 03991000 T 0513 


() 


On He ©) 


C} 


BEGIN 03992000 T 0513 
ALPHA 1De I» Xs NPARMS; 03993000 T 0513 
START OF SEGMENT xxxkkeRKKR 8120 
STACK(F43) s ID 
STACK¢Fs44) = I 
STACK(F4+5) = X 
STACK(F +6) = NPARMS 
REAL T3 03994000 T 0000 
STACK(F4+7) = T 
LABEL FOUNDs XIT3 03995000 T 0000 
IF DEBUGTOG THEN FLAGROUTINEC"LOOKFO"s "RINTRN",TRUE ) 3 03995010 T 0000 
LOOKFORINTRINSIC * L © NEFEDCID « GETCL4+1)eFUNID)3 03996000 T 0002 
IF GrT¢L+2) < QO THEN GO TO X3T% & PARAMETER INFO KNOWN 03996050 T 0005 
COMMeNT B MUST BE SET TO K/2, WHERE K ¢{S THE INDEX OF THE LAST 03996100 T 0007 
INTReNStC NAME TN THE ARRAY INT# 03996200 T 0007 
AcO} BeNUMINTM1 3 03997000 T 0007 
WHILE Ati < B DO 03998000 T 0009 


STACK¢F 43) 


STACK CF 44) 
STACK(F 45) 


STACKEF +6) 
STACK(F 47) 
STACK¢CF 410) 
STACK¢CF4i1) 
STACK¢F412) 


STACK¢F413) 


STACKCF #14) 


uo 


BFGIN 
1 + REALCBOOLEANCA+B) AND BOOLEANC1022))3 


IF Z « INTEI] = In THEN GO TO FOUND 
IF 1D «¢ Z THEN B ¢ 7.036811] ELSE A « 1,£36811)3 
END} 
IF ID = INTE 1T«CA+B)x9—7) THEN GO TO FOUND: 

GO To XIT? 
FOUND! 

NPARMSe (Xe INTEC T4139, INTPARMS$ INTCI+1], INTSEEN®1 3 
INFolLsTReis tC) ,SUBCLASS«XsINTCLASS 3 
PUT C). +22" C1&NEXTEXTRALTOADINFOJ&NPARMSE TONEXTRAI))3 
IF NPARMS = 0 THEN NPARMS «@ 43 

TeX INTPARMCLASS 3 

FOR + « 1 STEP 1 UNTIL NPARMS DO 

BEGIN 

EXTRAINFOLNEXTEXTRAsIR#NEXTEXTRA,IC] « 
0 & EXPCLASSCTOCLASS] & TETOSUBCL)3 
NEXTEXTRA © NEXTEXTRA + 13 
END? 
XT . 
IF DEBUGTOG THEN FLAGROUTINECYLOOKFO","RINTRN'sFALSE) } 
END LOOKFORINTRINSIC3 


INTEGER PROCEDURE FXPRCVALREQ)% VALUE VALREQ! BOOLEAN VALREQS 
BEGIN LABEL LOOP» STACKs». XtTs NOSCAN? REAL TS 


t 
LABE!, ARRY3 
LABEL HERE 3 
REAL SAVIT»s SAVIP3 
SAVIT 
SAVIP 
BOOLEAN CNSTSEENLASTS3 ZFOR HANDLING CONSTANT 
CNSTSEENLAST 
REAL SAVEADR?3 EXPONENTS 
SAVEADR 
DEFINE OPTYPE = LSTT#? 
REAL EXPRESLT»FXPLNKS 
EXPRESLT 
EXPLNK 
REAL EXPV3 
EXPV 
REA}. TM 3 
™ 
DEF rNFE FOSFMYTO#, EP=EMITPATR#, EOLSEMYTOPNCLIT#, 
ES{COPISBEGIN EOCXCH)# EPC9sSTDI$ FOCOP) END @e 
ES@=BEGIN EPC9,STD)$ EQeXCHIS EPe17sSND)3 EOCMUL) END # 3 
LABEL CTYPs DTYPs» RLESSCe DLESSCs CLESSDs CLESSC,» RPLUSNs DTIMESC. 
CTIMESR»e CDIVBYDe CTIMESRys CTIMESRoe DLESSC, 3 
LABEL SPECCHARs RELATIONS 
REAL LINKS 
LINK 


DEFINE Ti = EXPTi#e T2 = EXPT2#» CODE = EXpPT3#3 
COMMENT THE FOLLOWING TABLE GIVES THE PRECEDENCE ¢€PREC) AND 
OPERATOR NUMBER COP) OF THE ARITHMETIC AND LOGICAL OPERATORS, 


2113" 


BLi3= 


120 1S 


START OF SEGMENT 


03999000 T 0011 
04000000 T OO11 
04001000 T 0013 
04002000 T 0015 
04003000 T 0022 
04004000 T 0022 
04005000 T 0026 
04006000 T 0026 
04007000 T 90027 
04008000 T 0032 
04009000 T 0037 
04010000 T OO041 
04011000 T 0043 
04012000 T 0044 
04013000 T 0045 
04014000 T 0045 
04015000 T 0047 
04016000 T 0050 
04017000 T 0051 
04018000 T 0053 
04018010 T 0054 
04019000 T 0056 
62 LONG» NEXT SEG 
04020000 T 0513 
04021000 T 0513 
4 KKK 
04027000 T 0000 
04022010 T 0000 
04023000 T 0000 
04024000 T 0000 
04025000 T 0000 
04025500 C 0000 
04025600 c 0000 
04026000 T 0000 
04027000 JT 0000 
04028000 T 0000 
04028010 T 0000 
04028020 fT 0000 
04028030 T 0000 
04028040 T 0000 
04028050 T 0000 
04028060 T 0000 
04029000 T 0000 
04030000 T 0000 
04031000 T 0000 
04032000 T 0000 
04033000 T 0000 


6 


121 


Or’ 4 3: E? 


Cr JO 3oe A 


C% 


OPERATOR PREC OP 04034000 T 0000 

** 9 15 04035000 T 0000 

UNARY = B 12 04036000 T 0000 

/ 7 14 04037000 T 0000 

* 7 13 04038000 T 0000 

- 5 11 04039000 T 0000 

+ 5 10 04040000 T 0000 

aNEy 4 9 04041000 T 0000 

eGEs 4 8 04042000 T 0000 

2G 4 7 04043000 T 0000 

EQ, 4 6 04044000 T 0000 

eLE, 4 5 04045000 T 0000 

akTy 4 4 04046000 T 0000 

NOT, 3 3 04047000 T 0000 

eANDs 2 2 04048000 Tt 0000 

eOR, 1 4 04049000 T 0000 

THE UNARY PLUS IS IGNOREDS3 04050000 T 0000 

PROCEDURE MATHCDe Ce T)3 VALUF De Ce Te REAL De Co T3 04051000 T 0000 
PRT¢(720) = MATH 

BEGIN 04052000 T 0000 

EMITOCMKS)3 04053000 T 0000 

EMITL ECE 04054000 T 0000 

EMITVCNFEDC’,MATH “se INTRFUNTO))3 04055000 T 0004 

EMITOCNDFL)3 04056000 T 0003 

IF D = 2 THEN EMITOCDELD3 04057000 T 0003 

OPTYPECITerT=i)] « T3 04058000 T 0005 

FND MATHS 04059000 T 0008 

NNEW # NAMES 04060000 T 0010 

TF DEBURTOG THEN FLAGROUTINEC’ EXPRE*,*SSTON *,TRUE ) & 04061000 T 0010 

OPTYPErSAVIT «1T « JT+1} «© 04062000 T 0012 

PRESAV]PeTPeyP+1] «+ OPSTCIP] « 03 04063000 T 0014 

IF GLOBALNEXT = PLUS THEN GO TO LOOP! 04064000 T 0019 

IF GLOBALNEXT = MINUS THEN 04065000 T 0020 

BEGIN PREC « 83 OP « 123 GO TO STACK END} 04066000 T 0071 

1F PREc > O THEN GO TO STACK; 04067000 T 0026 

LINKe CEXPLNKePNEXTI&REALCSCANENTFRIG284741] 8 04068000 T 0027 

GO TO NOSCANS . 04069000 T 0029 

LOOP: SCANS 04070000 T 0030 

LINK « FNEXT3 04071000 T 0030 

NOSCAN? 04072000 T 0031 

CNSTSEENLAST#SFALSE$ 2113" 04072500 C 0032 

IF G)OBALNEXT = ID THEN 04073000 T 0032 

BEGIN 04074000 T 0033 

If Ip # SAVIP THEN EXPRESLT + EXPCLASS? 04074100 T 0034 

OPTYPELITeIT+1] «© CA+GETCLINK)), SUBCLASS} 04075000 T 0036 

SCAN} ? 04076000 T 0039 

IF NOT RANDOMTOG THEN 04076050 T 0040 

If NEXTSEQUAL THEN BEGIN NEXT«O3 OPe63 PREC#*4 END 3 04076100 T 0041 

IF GLOBALNEXT = 1D OR GLOBALNEXT = NUM THEN 04077000 T 0045 

_ BEGIN FLOGC1)3 GO TO X1T END3 04078000 T 0047 

te NOT VALRE@ AND PRec > 0 THEN VALREQ « TRUES 04078100 T 0048 

If GLOBALNEXT # LPAREN THEN j 04079000 T 0054 

BrGtN 04080000 T 0052 

LINK « GETSPACECLINK)3 04081000 T 0052 

T « (AeGETCLINK)),CLASS3 04082000 T 0054 

1F XREF THEN ENTERXCGETCLINK41) 2O8AL15915899)3 04082100 T 0056 

IF EXPRESLT = 0 THEN EXPRESLT « T3 04083000 T 0060 


C) 


C) 


C) 


C) 


y 


© 


Q) 


1F VALREQ Tes 
IF T = VARIN THEN EMITV¢LINK) FLSE 
BEGIN XTA «© GETCLINK4+1)% FLAGC50O) END 
ELSE 
BEGIN 
IF T = VARID THEN 
IF GLOBALNEXT > SLASH AND EXPRESLT = VARID THEN 
BEGIN 
DESCREQ « TRUF% EMITNCLINK)? DESCREQ « FAL SE3 
GO TO XIT3 
END ELSE EMITVELINK) 
ELSE 
BEGIN 
IF T = ARRAYID THEN 
BEGIN 
IF BOOLEANCAeCE) THEN 
EMI TNUMCGETCLINK+2),BASE) ELSE 
IF BOOLEANCA,FORMAL) THEN 
EMITOPHCLITCAsADDR=1) ELSE 
EMITLCO33 
GO TO ARRY3 
END ELSE EMITPAIRCA,ADDRe LOD): 
GO TO X1T3 
END} 
ENDS 
GO TO SPECCHAR3 
EnD3 
IF A,CLASS # ARRAYID THEN 
BEGIN COMMENT FUNCTION REFERENCE3 
EXPRESLT « EXPCLASS$ 
IF AeCLASS = STMTFUNID THEN 
BEGIN 
IF XREF THEN ENTERXCGETCLINK+1) sO8AL15%1539I1)3 
STMTFUNREFCLINK) 3$ 
IF NEXTSEQUAL THEN IF NOT RANDOMTOG THEN 
BEGIN NEXT¢03 OP«6$ PRECe4 END 3 
GO TO SPECCHAR 3 
END-}3 


IF AsCLASS=EXTID OR GET¢CTM*GLOBALSEARCHCGETCLINK+1))).CLASS= 


EXTID THEN LINKeREALCOOITTINLINEC@LINK)) FLSE 
IF A,CLASS<FUNID AND TMsO THEN 

TF DOITINLINECLINK) THEN GO HERE ELSE 

LINK « LOOKFORENTRINSICCLINK) ELSE 

LINK # NEEDCGETCLINK+1)eFUNID)3 


IF XRFF THEN ENTFRXCGETCLINK+41 ) sO8GETCLINKICI5¢1529) 93 


EMITTOCMKS)3 


PARAMETERSCLINK)3 
IF ERRORTOG THEN GO TO XIT ELSE SCAN} 
EMITVELINK 3 
IF OPTYPECIT] + GETCLINK),SUBCLASS 2 DOUBTYPE THEN 
EMITOPDCLITCJUNK)3 
HERE $ IF NEXT=EQUAL, THEN 


IF NOT RANDOMTOG THEN BEGIN NEXT#*03 PREC#43 OP*©6 END 3 


END ELSE 
BEGIN COMMENT ARRAY REFERENCES 
IF XREF THEN ENTERXCGETCLINK+4£) »O8A015215391)3 


04084000 
04085000 


04086000 
04087000 
04088000 
04089000 
04090000 
04091000 
04092000 
04093000 
04094000 
04095000 
04096000 
04097000 
04098000 
04099000 
04100000 
04101000 
04402000 
04103000 
04104000 
04105000 
04106000 
04407000 
04108000 
04109000 
04140000 
04411000 
04112000 
04112100 
04113000 
04114000 
04114050 
04114100 
04114200 
04114300 
04114400 
04114500 
04114520 
04114530 
04145000 
04415010 
04116000 
04117000 
04117100 
04118000 
04119000 
04420000 
04421000 
04122000 
04423000 
04424000 
04124100 
04124200 
04125000 
04126000 
04126100 


AAA H HAHAH HHH AMAA A BHAA HAA TAA A RH AT AAA Ht A Ht st 


0062 
0062 


0064 
0067 
0067 
0068 
0069 
0071 
0071 
0074 
0074 
0075 
0075 
0076 
0077 
0077 
0078 
0081 
0082 
0084 
0086 
0086 
0088 
0089 
0089 
0089 
0089 
0089 
0090 
0091 
0092 
0093 
0093 
0097 
0098 
0100 
0103 
0103 
0103 
0108 
O111 
0113 
O115 
0117 
0120 
0124 
0125 
0125 
0125 
0127 
0128 
0130 
0132 
0132 
0137 
0137 
0137 


O 


OC) 


Ck, 9Or. 2. 4h. ee 


~ 


ag 


SCAN3 
VALREQ * SUBSCRIPTSCLINK»REALCVALREQ) 23 
IF ERRORTOG THEN GO TO XIT$3 


1F NEXT=EQUAL THEN IF NOT RANDOMTOG THEN 


BEGIN NEXT#03 OP«63 PREC«4 END 3 


IF EXPRESLT = O THEN FXPRFSLT «+ SUBSVAR3 


1F NOT VALRE@ THEN 
BEGIN 


IF GLOBALNEXT > SLASH AND EXPRESLT = 


BEGIN 
ARRy3 


IF BOOLEANCCA*GETCLINK)).TWOD) THEN 


BEGIN 
EMITPAIR¢ TWODPRT» LOD)3 
T « A,ADDR} 
IF T $ 1023 THEN 
BEGIN 
EMITLCT.£38310]93 
EMITDESCLITC10)3 
END ELSE 
BEGIN 
EMITL¢CT,£640281])3 
EMITDESCLIT(C1536)3 
EMITOCINX)$ 
END$ 
EMITOCCTF)3 
END ELSE EMITPAIRCAeADDR*eLOD)3 
EMITOCXCH)3 
GO TO XIT 
END$ 
IF BOOLEANCCASGET¢LINK)),TWOD) THEN 
BEGIN 
SPLITCAsADDR)} 
IF AsSUBCLASS > pnOUBTYPE THEN 
BEGIN 
FMITOCCDC)3 
FMITOCDUP)3 
EMITPAIR¢ 4s XCH)3 
EMITOCINX)3 
EMITOCLOD)? 
EMITOCXCH)3 
EMITOCLOD)3 
END ELSE EMITO¢CoC)3 
END ELSE 
EMITVCLINK)3 
END? 
END ARRAY REFERENCES 
Go TO SPECCHAR3 
END: 
IF GLOBALNEXT = NUM THEN 
BEGIN 
le NUMTYPE = STRINGTYPE THEN 
tf VALREQ THEN 
BEGIN 
NUMTYPE*INTYPE 3 


IF STRINGSIZE=1 THEN FNEXTeSTRINGARRAYIO] 


FLSE BEGIN 


SUBSVAR THEN 


04427000 
04128000 
04129000 
04129100 
04129200 
04130000 
04431000 
04132000 
04133000 
04434000 
04435000 
04136000 
04137000 
04438000 
04139000 
04440000 
04141000 
04142000 
04143000 
04144000 
04145000 
04146000 
04447000 
04448000 
04149000 
04150000 
04151000 
04452000 
04153000 
04154000 
04455000 
044156000 
04457000 
04158000 
04159000 
041460000 
04161000 
04162000 
04163000 
04464000 
04165000 
04166000 
04167000 
04168000 
04169000 
04170000 
04171000 
04172000 
04173000 
04174000 
04175000 
04476000 
04177000 
04177200 
04177400 
04177500 
04477550 


O14) 
0144 
0143 
0144 
0146 
0149 
0151 
01514 
0152 
0154 
0154 
0155 
0156 
0157 
0161 
0163 
0163 
0164 
0165 
0166 
0166 
0166 
0168 
0168 
0169 
0169 
0170 
0173 
0174 
0174 
0174 
0176 
0177 
0178 
0179 
0180 
0480 
0184 
0182 
0183 
0184 
0184 
0185 
0186 
0186 
0188 
0188 
0188 
0188 
0488 
0189 
0189 
0190 
01494 
0194 
0192 
0194 


Ge. a 


Ch 6 Gr ae Oy AY MO 


C) 


* 
iY 
C } 


G 


IF STRINGS! Ze>2 OR STRINGARRAY(1)],€18%30]#" 
FLAG(162) 3 


” THEN 


IF CFNEXTeSTRINGARRAY #11, 0121678STRINGARRAY[0](6212236)) 


2€6%$6)>7 THEN NUMTYPE*«REALTYPE 3 
END 3 
END? 
SAVEADRIsADRS CNSTSEENLASTs=TRUES 

Ir NUMTYPE = DOUBTYPE THEN 

EMITNUM2CFNEXTeDBLOW) ELSE EMITNUM CFNEXT)S 
OPTYPECIT«IT+1] « NUMTYPE?3 
If EXPRESLT = 0 THEN 
BEGIN EXPRESLT «+ NUMCLASS3 EXPV 
SCAN} 
Ie NOT RANDOMTOG THEN 
fe NEXT=EQUAL THEN BEGIN NEXT¢O3 OP«+63 PREC*4 END 3 
If NOT VALREQ AND PRec > 0 THEN VALREQ «+ TRUE? 
te GLOBALNEXT = ID OR GLOBALNFEXT = NUM THEN 

BEGIN FLOGCLI3 GO TO XyT ENDS 


¢ FNEXT END$ 


ENDS 
SPECCHAR? 
IF GLORALNEXT = LPAREN THEN 
BEGIN 
SCAN? 
OPTYPErtTefT+1] « EXPRCTRUEDS 


IF GLOBALNEXT = COMMA AND EXPRESULT = NUMCLASS THEN 
BEGIN 
IF OPTYPELIT] > REALTYPE THEN FLAG(85)3 
SCANS 
IF EXPRCTRUE) > REALTYPE 
OR EXPRESULT # NUMCLASS THEN FLAGC85)3 
EMITOCXCH)3 
OPTYPELIT] « COMPTYPE3 
IF EXPRESLT = 0 THEN EXPRESLT « NUMCLASS3 
END ELSE EXPRESLT « FXPCLASS$ 
If GLOBALNEXT # RPAREN THEN 
BrGIN FLOGC108)3 GO TO XIT ENn3 
GO TO LOOP? 
ENDS 
WHIle PROIP] 2 PREC pO 
BEGIN 
IF IT <€ SAVIT THEN GO TO XyT?3 
CODE « MAPCTLI*OPTYPELIT#11)*3 + MAPET2+OPTYPELITII3 
CASE OPSTEIP)] OF 
BEGIN | 
PRTC721) = *CASF STATEMENT DESCRIPTOR* 
GO To X1T3 
BEGIN 
Ip T1 = LOGTYPE AND T2 = LOGTYPE THEN EMITOCLOR) 
FLSE FLAG(54)3 
IT « JT=43 
ENDS 
BEGIN 
IF Tt = LOGTYPE AND T2 = LOGTYPE THEN EMITOCLND) 
ELSE FLAG(5293 
IT « ITet3 
END$ 


*113" 


04477575 
04177600 
04177700 
04477800 
04477900 
04178000 
04478500 
04179000 
04480000 
04181000 
04182000 
04183000 
04184000 
04184050 
04184100 
04184200 
04485000 
04186000 
04487000 
04188000 
044189000 
04190000 
04191000 
04492000 
04493000 
04494000 
04195000 
04196000 
04497000 
04198000 
04198100 
04199000 
04200000 
04201000 
04202000 
04203000 
04204000 
04205000 
04206000 
04207000 
04208000 
04208100 
04209000 
04210000 
04211000 


04212000 
04213000 
04214000 
04915000 
04946000 
04217000 
04218000 
04219000 
04220000 
04221000 
04222000 


AMA HHH AHHH HAH HA A HH A A HHO ht a 


i 


04195 
0197 
0199 
0204 
0204 
0204 
0204 


0205: 


0206 
0210 
0213 
0213 
0215 
0216 
0217 
0221 
0224 
0225 
0227 
0227 
0228 
0228 
0229 
0229 
0232 
0232 
0234 
0234 
0237 
0237 
0238 
0241 
0244 
0243 
0245 
0246 
0247 
0248 
0249 
0249 
0251 
0251 
0252 
0257 
0257 


0258 
0258 
0258 
0261 
0262 
0264 
0264 
0264 
0267 
0268 
0270 


C) 


‘e) 


CO: We: 4s “OP Aa AG we a 


~~ 
we 


xn IF To = LOGTYPE THEN EMITOCLNG) ELSE FLAGC53)3 04223000 T 0270 
2 BEGIN T « LPSS# GO TO RELATION END$ 04924000 T 0274 
BEGIN T «© LEQL3 GO TO RELATION END} 04225000 T 0276 
ois BEGIN T « FOULS GO TO RELATION ENDS - 04226000 T 0277 
A BEGIN T « GRTR3 GO TO RELATION ENDS 04927000 T 0279 
BEGIN T « GEQL3 GO TO RELATION ENDS 04928000 T 0281 
ve BEGIN T « NEQL3 04229000 T 0283 
sap Re LATION: 042930000 T 0283 
Ir CODE < O THEN FLAG(54) ELSE 04231000 T 0284 
se CASE CODE OF 04932000 T 0286 
BrGin 3 042933000 T 0286 
PRT¢722) = *CASE STATEMENT DESCRYPTOR* 
he BEGIN 04234000 T 0287 
ae) FOCCHSIS EPC9sSTD)3 EQCXCH)3 FOLC9)$ EOCXCH)? EPCOsXCH) } 04935000 T 0287 
: FOCAD2) $ 04236000 T 0292 
= END3 04238000 T 0293 
ce FLAGC9O)S 04239000 T 0293 
BEGIN EMITPAIRCO» XCH)3 EMITOCSB2) END3 04240000 T 0294 
= EMITOCSB2)3 04741000 T 0297 
V FLAGC90)3 04242000 T 0298 
FLAGC90)3 04243000 T 0299 
= FLAGC9IO)S 04244000 T 0300 
eS. IF T# EQUL AND T# NEQL THEN FLAGC54) %103" 04245000 P 0302 
FLSE ¥103" 04245100 ¢ 0304 
a BEGIN 4103" 04245200 c 0305 
OY) EPC9eSTDI$ EOCXCH)S EOLC9)S EOCT)3 %103" 04245300 ¢ 0305 
FPC9eSTD 23 EOCT)S FOLCIIS %103= 04245400 c 0308 
= TeCIF TSEQUL THEN LND FLSE LORD$ cODE*03 %103= 04245500 c 0311 
Mas ENDS %103= 04245600 c 0314 
END RELATION CASE STATEMENT? 04246000 T 0315 
se ‘ START OF SEGMENT *xxekeeKKR 102 
— : 122 1S 10 LONGe NEXT SEG 121 
Ie CODE > O THEN 04247000 T 0315 
ee BeGIN EMITOCXCH)3 EMTTOCDFL)$ EMITLCO) FND$ 04248000 T 0316 
lal EMrTOCT)3 04249000 T 0319 
OPTYPELYTeyT=1i1 « LOGTYPE; 04250000 T 0320 
oa END? 04251000 T 0322 
S IF CoDE < 0 THEN BEGIN FLAG(55)3 IT * ITef END ELSE 04952000 T 0322 
CASE CODE oF 04253000 T 0326 
_ BEGIN ; 042954000 T 0326 
OO PRT¢793) = *CASE STATEMENT DESCRIPTOR 
BEGIN 04955000 T 0327 
s EMITOCADD)3 04256000 T 0327 
‘3 IF Ti = INTYPE AND Ta = INTYPE THEN IT «& IT#4 ELSE 04257000 T 0328 
OPTYPECIT«IT™1] « REALTYPE3 04258000 T 0334 
os ENDS 04259000 T 0334 
v2 BEGIN TM*AD2 # 04260000 T 0334 
RPLUSH#§ EPC9*#STD)$ EOCXCH)S FOLC9I)s EOCXCH)S EPCOeXCH)3 FOCTM) 3 04260010 T 0335 
nTyPt OPTYPELITeIT=LI*DOUBTYPE 3 04260020 T 0341 
Se END 3 04260030 T 0343 
BFGIN TM*ADD$ GO RLESSC END } 04261000 T 0343 
Po BFGIN 04262000 T 0345 
Se: EMITPATRCOs XCH)3 04263000 T 0345 
EMTTOCAD2)3 042964000 T 0346 
. 1T «© TT"413 04765000 T 0347 
CQ ENDS 04266000 T 0348 
BrGtN EMITOCAD2)3 IT © yT#1 ENDS 04267000 T 0349 
Oo 


() 


BFGYN TMeADD$ GO DLESSC FND 3 

BEGIN EMITOCADD)$ IT « tT#4 END3 

BrGIN TMeADD? GO CLESSD END 3 

BEGIN TM*ADD3 GO CLESSC END 3 
END ADD CASE STATEMENTS 


IF CoDE < 0 THEN BEGIN FLAGC55)3 IT + IT=1 END ELSE 


CASE CODE OF 
BEGIN 


*CASE STATEMENT DESCRIPTOR* 


BEGIN 
FMITOCSUB)3 


IF Ti = INTYPE AND T2 = INTYPE THEN JT * IT*1 ELSE 


OPTYPErITe{T™1] « REALTYPE3 
END? 
BFGIN FOCCHS)3 TM*«AD23 GO RPLUSD END 3 
BrGtN TM«SUB 3 
RLESSC? £S1CTM)3 GO DLESSc1L 3 
FND 3 
BeGtN 
EMITPATRCOs XCH)3 
EMyTOCSB2)3 
17 «© YT"13 
END? 
BFGIN EMITO¢CSB2)3 IT «+ Tet ENDS 
BEGIN TM«SUB 3 
DLESSC} E€S84¢TM)3 EFOCXCH)? EQeDEL) 3 


DLESSCis Eae9)s IF Tm=SUB THEN EOCCHS)# GO CTIMESR2 3 


END 3 
BEGIN EMITOCSUB)$ IT «+ 1{T#=4 END? 
BEGIN TM«SUB ; 
CLESSD$ EOCXCH)S EOCDEL)# EOeTM) 3 
cTYP? OPTYPELITeIT*1]¢COMPTYPE 3 
END 3 
BFGIN TM«SUB 3 
cLeESScs ESICTM)3 GO CTIMESRI 3 


END 3 
END SUBTRACT CASE STATEMENT? 


BEGIN % HANDLE NEGATIVE NUMBFRS CASE STATEMENT, 
EXPVe"EXPV 3 


1F To §$ REALTYPe THEN EMTTOCCHS) ELSE 
IF To = LOGTYPE THEN FLAGCS5) ELSE 

IF To = DOUBTYPE THEN EMITOCCHS) ELSE 
IF To = COMPTYPE THEN 

BEGIN 


EmIToacCHS)3 EmMETocXCH)3 
EmITOCCHS)$ EMITOCXCH)3 

END FLSE FLAG(55)3 

END aF NEG NUMBERS CASE STATEMENT 3 


IF CoDE < 0 THEN BEGIN FLAG(55)3 IT © IT#i END ELSE 


CASE CODE OF 
BEGIN 


*CASE STATEMENT DESCRIPTOR*® 


BEGIN 


START OF SEGMENT 


START OF SEGMENT 


04268000 T 0351 
04969000 T 0353 
04970000 T 0355 
04271000 T 0357 
04272000 T 0359 

BOR OIRO Ok 

10 LONGs NEXT SEG 
04273000 T 0360 
04974000 T 0363 
04975000 T 0364 
04276000 T 0364 
04277000 T 0364 
04278000 T 0365 
04279000 T 0369 
04280000 T 0371 
04281000 T 0372 
04282000 T 0374 
04282010 T 0375 
04282030 T 0379 
04283000 T 0379 
04284000 T 0379 
04285000 T 0380 
04286000 T 0381 
04287000 T 0382 
04988000 T 0383 
04289000 T 0385 
04289005 T 0386 
04289007 T 0394 
04289010 T 0394 
04290000 T 0394 
042991000 T 0397 
04991010 T 0398 
04291015 T 0400 
04291020 T 0403 
04292000 T 0403 
04292010 T 0404 
04292020 T 0408 
04293000 T 0408 

BO Ok 

10 LONGs NEXT SEG 
04293100 T 0409 
04293200 T 0409 
04294000 T 0410 
04295000 T 0412 
04296000 T 0415 
04297000 T 0417 
04298000 T 0418 
04299000 FT 0419 
04300000 T 0420 
04301000 T 0422 
04301100 T 0423 
04302000 T 0424 
04303000 T 0427 
04304000 T 0428 
04305000 T 0428 


(> 


Cy 


O 


() 


EMITOCMUL)3 


tF Ti = INTYPE AND T2 = INTYPE THEN IT © IT*™1 ELSE 


OPTYPELITe#I]T*1) «© REALTYPES 


ENDS 
BFGIN TM*ML23; GO RPLUSD END 3 
BrGIN £S23 GO NTIMESC END 3 
BFGIN 
EMITPAIRCOs XCH)3 
EMITOCML2)3 
1T © IT"h3 
END? 
BrGtN eMrTO¢ML2)3 TT «+ ¢T=1 ENDS 
BFGYN ES23 EOCXCH)? FOCDEL) 3 
DTrMESCt EQLC9IS EOLC17)% EOCMULDS GO CTYP 3 
END 3 
BEGIN TMeMUL, 3 
CTIMESR: EPC9»SND)$ EOCTM) 3 
CTIMESRe S$ EOCXCH)$ FOLC9)% FOCTM) 3 


\CTIMESRetEOCXCH)$ GO CTYP 3 


END 3 
BFGIN TM*MUL3 GO CDIVBYD END 3 
MATHC2s 268 COMPTYPE)3 

END MULTIPLY CASE STATEMENT? 


IF CODE < O THEN BEGIN FLAG(55)3 IT © TT#"41 END ELSE 
CASE CODE OF 
BEGIN 


*CASE STATEMENT DESCRIPTOR* 


te T4 = INTYPE AND T2 = INTYPE THEN 
BreGIN EMtTO¢rDV)s IT « yT=41 END ELSE 


BrGtIN EMITOCHIUDS OPTYPrE1Te1T"=1) «© REALTYPE END? 


BFGIN 
EPe9eSTDIF EPCH7eSTDIS EPC OsXcH)? EOLc17)3 EOLC9)? E0CDV2) 3 
Go OTYP 3 
EnD 3 
MATHC is 292 COMPTYPE)3 
BEGIN 
EMITPAIRCOs XCH)3 
EMITOCDV2)3 
1T « [T#43 
EnD 3 


BEGIN EMITOCOV2)3 IT « YT=4 END3 
MATHC(2s 329 COMPTYPE)3 
BEGIN TM«DIU3 GO CTIMESR END 3 
BFGIN TMenrU 3 

COIVBYN: FOCXCH)3 FOCDEL) GO CTIMESR } 
END 3 
MaTHC2» 35» cCOMPTYPE); 

END OF DIVIDE CASE STATEMENTS 


1F CODE < 0 THEN BEGIN FLAG(55)# IT © TT#t END ELSE 
BEGIN 

1F coDF = O AND T2 = JNTYPEF AND 

. CNSTSFENLAST THEN 

BEGIN 


%113= 


START OF SEGMENT 


125 1S 


START OF SEGMENT 


126 1S 


04306000 T 0428 
04307000 T 0429 
04308000 T 0432 
04309000 JT 0435 
04310000 T 0436 
04311000 T 0437 
04312000 T 0442 
04313000 T 0442 
04314000 T 0443 
04315000 T 0444 
04316000 T 0445 
04317000 T 0445 
04318000 T 0448 
04348010 T 0453 
04318020 T 0456 
04319000 T 0457 
04319010 T 0458 
04319020 T 0459 
04319030 T 0462 
04319040 T 0464 
04320000 T Q464 
04321000 T 0466 
04322000 T 0468 

Nek ICA Se fe a aie as 

10 LONG» NEXT SEG 
04323000 T 0469 
04324000 T 0472 
04325000 T 0473 
04326000 T 0473 
04327000 T 0475 
04328000 T 0478 
04329000 T 0482 
04329010 T 0482 
04329020 T 0487 
04329030 T 0487 
04330000 T 0488 
04331000 T 0490 
04332000 T 0490 
04333000 T 0494 
04334000 T 04914 
04335000 T 0493 
04336000 T 0493 
04337000 T 0496 
04338000 T 0497 
04339000 T 0499 
04339010 T 0500 
04339020 T 0503 
04340000 T 0503 
04341000 T 0505 

Pere eee Le ry 

10 LONG» NEXT SEG 
04342000 T 0506 
04343000 T 0509 
04344000 T 0510 
04345000 P 0541 
04346000 T 0512 


125 


121 


126 


121 


Cy. oy Se) 


OY 


PRT¢( 727) 


- 
-” 


Ip T+ = INTYPE AND To = INTYPE THEN IT « IT#¢ ELSE 
OPTYPELIT Tel T#1] « REALTYPE? 


EXPVI=LINK3 
A:=13 ADRS=SAVEADR} 


WHILE EXPV DIV 2 # 69 Do 
BEGIN 
EMITOCDUP)3 


IF BOOLEANCEXPV) THEN BEGIN AeA+13 EMITOCDUP) END3 


EMITOCMUL)3 


EXPV + EXPV DIV 2} 


END3 


IF EXPV = 0 THEN BEGIN FMITOCNEL)# EMITLO1) END ELSE 
WHILE A © AwY # 0 DO EMYTOCMULDS 


END FLSE 

BEGIN 
EMITOCMKS)3 
EMITLCCODE)3 
EMITVCNEEDC™,XTOYL "eo 
CASE CODE OF 
BrGIN 

*CASF STATEMENT DESCRIPTOR* 
BEGIN EMITOCDEL)3 


BFGIN EMITOCDEL)3 
BEGIN EMITOCDEL)3 
BEGIN EMITOCDEL)3 
BEGIN EMITOCDEL)3 
BEGIN EMITOCDEL)3 
BEGIN EMITOCDEL)}3 
BEGIN EMITOCDEL)3 
BEGIN EMITOCDEL)3 


INTREUNID))3 


OPTYPELITerT™ilerF cTIsrNTYPE AND T2=,NTYPE) 
THEN INTYPE ELSE REALTYPE END? 

OPTYPELIT+1T71] « DOUBTYPE END$ 

OPTYPELIT*#1T*1J+COMPTYPE END 3 

IT «© IT=_y END} 

EMIToCDE,93 IT « IT#=4 END; 

EMITOCDEL)s OPTYPELIT#!IT"1)+COMPTYPE END 3 

IT « IT=y END} 

EMITOCDEL)3 IT «© IT#1 END} 

EMITOCDELI3 ITelT"% END 3 


EnD OF POWER CASE STATEMENT? 


04347000 T 0542 
04348000 T 0516 
04349000 P 0519 
04350000 P 0519 
04351000 T 0521 
04352000 T 0523 
04353000 T 0523 
04354000 T 0524 
04355000 T 0527 
04356000 T 0528 
04357000 T 0529 
04358000 T 0529 
04359000 T 0532 
04360000 T 0536 
04361000 T 0536 
04362000 T 0537 
04363000 T 0537 
04364000 T 0538 
04365000 T 0540 
04366000 T 0540 
04367000 T 0540 
04367500 T 0544 
04368000 T 0547 
04369000 T 0550 
04370000 T 0554 
04371000 T 0556 
04372000 T 0560 
04373000 T 0564 
04374000 T 0566 
04375000 T 0570 
04376000 T 0573 


START OF SEGMENT & && * eK KK 
127 5S 10 LONGe NEXT SEG 


END3 
FND3 
END 


IP + TP"13 
ENDS 
EXPRESLT « EXPCLASS} 
STACK? 
PREt{PeyPri] « PRECS 
OPSTrIP] «© OP} 


1F PRec > O AND PRec § 
BEGIN 
SCAN? LINK « FNEXT? 


A THEN 


Ip NEXT = PLUS THEN GO TO ‘LOOP3 
IF NEXT # MINUS THEN GO TO NOSCAN3 


PREC «+ 83 OP « 123 
Go TO STACK3 

ENDS 

GO To LOOP: 


XIT: YF IP # SAVIP THEN FLOG(56)3 


IP « SAVIP#13 


04377000 T 0573 
04378000 T 0573 
04379000 T 0574 
START OF SEGMENT *# ee #4 KER 
17 LONGe NEXT SEG 
04380000 T 0575 
04381000 T 0576 
04381100 T 0578 
04382000 T 0578 
04383000 T 0579 
04384000 T 0581 
04385000 T 0582 
04386000 T 0582 
04387000 T 0584 
04388000 ¥ 0584 
04389000 T 0586 
04390000 T 0587 
04391000 T 0588 
04392000 T 0590 
04393000 T 0590 
04394000 T 0590 
04395000 T 0591 
04396000 T 0593 


127 
121 


128 
121 


QO 


C) 


O 0 


QO 


O 


EXPR » OPTYPELITI3 04397000 T 0594 
IF OPTYPELIT@1) # O THEN FL0GC56)3 04398000 T 0595 
1T « SAVIT#13 04399000 T 0598 
EXPRESULT * EXPRESLT3 04400000 T 0599 
EXPVALUF « EXPV3 04401000 T 0600 
EXPLyNK « EXPLNK$ 04402000 T 0600 
TF DEBURTOG THEN FLAGROUTINEC® EXPRE™,"SSION ",FALSE) 3 04403000 T 0604 
FND EXPR3 04404000 T 0603 

121 1S 610 LONG» NEXT SEG 6 
PROCEDURE FAULT ¢X)3 04404050 T 05143 

PRT¢730) = FAULT 

VALUE X3 04404100 T 0513 
REA, X3 04404125 T 0543 
BEGrN REAL LINK? LABEL XIT3 04404150 T 05143 

START OF SEGMENT #exekeRKRR = 1.99 


STACKOF+2) = LINK 


SCANS IF GLOBALNEXT # LPAREN THEN BEGIN FLAGC106)3 GO XIT END3 04404200 T 0000 
SCANS IF GLOBALNEXT # 1D THEN BEGIN FLAG(66)% GO To XIT END? 044042950 T 0003 
IF X = 1 THEN PDPRT£O*0] + PDPRTE0s0] & 1£44:47%1] ELSE 04404275 T 0006 
POPRTC£O0] « PDPRT COs0] & 1243 8473173 04404300 T OO11 
EMITOPDCLIT(C41)3 EMITOCDUP)S$ 04404325 T 0015 
IF X = 1 THEN BEGIN EMITLO2)3 EMITOCXCH)3 EMITLC€41) END 04404350 T 0017 
ELSE EMITL(6)3 04404375 T 0020 
EMITOCLND)$ 04404425 T 0022 
IF X = 2 THEN EMITLO3)3 04404435 JT 0022 
EMITOCSUB)$ 044604450 T 0024 
IF X = 2 THEN 04404475 T 0025 
BEGIN EMITOCDUP)3 FMrTLO3)3 EMETOCSSN) SEMITOCEQULI$ EMITLO2) 04404500 T 0026 
PEMITOCBFC) § EMITOCDELISEMITLE2)3 04404525 T 0030 
END: 04404550 T 0032 
LINK © GETCGETSPACECFENEXT) 93 EMITPAIRCLINKeADDReITSD)3 04404570 T 0032 
te X = 1 THEN EMITL¢30) ELSE EMITL¢25)3 04404600 T 0036 
FMYITOCLND)S EMITL¢4idFeM{TOCSTD)3 04404625 T 0039 
SCANS IF GLOBALNEXT ¢ RPAREN THEN FLAG(108)3 04404650 T O044 
SCAN} 04404660 T 0044 
X1Ts 04404675 T 0044 
END FAULT? 04404700 T 0045 
129 IS 48 LONGs NEXT SEG 6 
PROCEDURE SUBRFF3 04405000 T 05143 
PRT(731) = SUBREF . 
BEGIN RFAL LINK» INFC3 04406000 T 0513 
START OF SEGMENT #*eekeeEKe = 430 
STACK¢F +2) = LINK 
STACK¢(F 43) = INFC 
REAL, ACCIDENT3 04406010 T 0000 
STACK(F4+4) = ACCIDENT 
LABrL x1IT3 04406020 T 0000 
IF DEBUGTOG THEN FLAGROUTINEC# SUB", "REF ",TRUE ) 3 04406025 T 0000 
IF TSSENITOG THEN YF NAMEsY7yP " AND NOT pCINPUT THEN TSSEDCNAME, 3) 3 04406030 T 90002 
IF NAME = "EXIT t THEN 04407000 T 0006 
BEGIN 04408000 T 0007 
Re TURNFOUND « TRUE3 04408100 T 0008 
EMITL¢E1)3 04409000 T 0009 
FMITPAIR¢C16, STD)3 04410000 T 0010 
EMITPAYTR(105 KOM); 04411000 T Q011 
EMITPATR¢ 5s KOM)3 044432000 T 0012 
PUTCFNEXT415 "soenoe™ 3 04433000 T 0013 


CO 


O 


os, 
a 
r 


Nae 


C) 


Or oOF Oe dr -© 


OO 


(O° Ae Ge Oe 


C 


SCAN3 04414000 T 0015 
END FLSE IF NAMES"ZIP " AND NOT DCINPUT THEN 04445000 T 00145 
BEGIN 04415010 T 0023 

EMITOCMKS)3 04415011 T 0023 

EMITLCO)S EMITLCO)23 & DUMMY FILE AND FORMAT 04415020 T 0024 

EMITPAIRG*1eSSN)3 04415021 T 0025 

EMITBC@1*eFALSE)$ LADRI*LAXS ADJUSTS DESCREQ«FALSE3 04415030 T 0027 

IF aDR 2 4085 THEN BEGIN ADR*ADR+13 SEGOVF END; 04415040 T 0030 

ACCIDENT*PRGDESCBLDR¢Os 0° ADRgf 36810)4+1eNSEG)3 04415050 T 0033 

EMITOPDCLITC(1993 04415070 T 0036 

EMITOCGFW)S 04415080 T 0037 

LySTART © ADR&NSEGETOSEGNO]S ADJUST#SCANS 04415090 T 0037 

Tp GLOBALNEXT#LPAREN THEN BEGIN FLAGC106)3GO TO XIT ENDS 044145100 T 0040 

SCANS IF GLOBALNEXT#1D THEN BEGIN FLAGC66)3 GO TO XT ENDS 04415110 T 0045 

LrNOX « FNEXT$ SCANS XTA « GETCLINDX41)3 04415120 T 0048 

IF GLOBALNEXT#RPAREN THEN BEGIN FLAG(108)? GO TO XIT END3 04415130 T 0051 

LYNDX «# GETSPACECLINDX)$ 04415140 T 0053 

Tr TeCLINFA#GETCLINDX)2,CLASS#ARRAYID THEN 04415150 T 0054 

; BEGIN FLAGC66)3 GO TO XIT ENDS 04415160 T 0057 

Ip XREF THEN ENTERXCXTA,ORLINFALI5945199)3 04415165 T 0059 

EMITPATR¢(LADDReLINFA.ADDR,L0D)3 04415470 T 0062 

IF BOOLEANCLINFA,FORMAL) THEN 044454380 T 0064 

BEGIN 04415190 T 0064 
IF T «© GETCLINOX+9)<0 THEN EMITOPDCLITCT. SIZE) 04415200 T 0065 
ELSE EMITNUMCT,.SIZE)3 EMITOPDCLITCLADDR#1)5 EMITOCCTF) END 04415210 T 0068 

Ey,SE EMI TNUMCGETCLINDX+9),BASENSIZE)3 EMITLO18)3 EMITOCSTD)33 04415220 T 0073 

EMITLCLINFAsCLASNSUBQ0(L44247%14]93 EMITLC1993 EMITOCSTD)3 04415230 T 0077 

BRANCHLITCLISTART»+TRUE)3 EMITLO199% EMITOCSTD)$ 04415240 T 0081 

EMITOCRTS)$ ADJUST; 04415250 T 0083 

EMITLC12% EMITOCCHS)$’ EMITLC19)3 EMITOCSTD)$ 04415260 T 0084 

EMITDESCLITC1993 EMITOCRTS)3 FIXBCLADRID: DESCREQ*FALSES 04415270 T 0087 

EMITPAIRCACCIDENTeLOD)§ EMITOPDCLITC7)3 EMITOCFTF)3 04415280 T 0090 

EMITLC6)3 %¥ EDITCODF 6 FOR ZIP 04415290 T 0093 

EMITVCNEEDC’,FTOUT'» INTRFUNIDD)3 SCAN 04415300 T 0094 

END ELSE IF NAME = "OVERFL"” THEN FAULTC2) 04415310 T 0095 
ELSr IF NAME = "OVCHK © THEN FAULTC1) 04415320 T 0099 
ELS 04415330 T 0103 
BEGIN 04416000 T 0104 
LINK « NEEDCNAMEs SUBRID)3 04417000 T 0106 
IF XREF THEN ENTERXCXTA,O&GETCLINKI£1591595 798 04417100 T 0407 
EMITOCMKS)3 04418000 T 0110 
SCAN}; 04419000 T O111 
1F GLOBALNEXT 5 LPAREN THEN 04420000 T 0112 
BrGiN PARAMETERSCLINK)$ SCAN END ELSE 04421000 T 0112 

1F NOT BOOLEANCCINEC+GETCLINK+2)),°1411]) THEN 04422000 T 0114 

PUT¢CLINK#2e"INFC) ELSE 04423000 T 0117 
IF INFC,NEXTRA # 0 THEN 04424000 T 0419 

BEGIN XTA « GETCLINK+1)3 FLAG¢28) END3 04425000 T 0121 
EMITVCLINK)$ 04426000 T 0124 

04426500 T 0125 

04426700 T 0125 

END; 04427000 T 0125 
X1T: 044227010 T 0125 

IF DEBUGTOG THEN FLAGROUTINECt SUB", "REF ",FALSE) } 04427025 T 0126 
END SUBREF? 04428000 T 0128 

130 18 133 LONGe NEXT SEG 6 
PROCEDURE DECLAREPARMSCFNEW)$ VALUE FNEWS REAL FNEW3 04429000 T 0513 


5 


Ce. Se) 


PRT(732) s 


STACK¢F 42) 
STACKEF 43) 
STACK EF 44) 
STACKEF 45) 
STACK EF 46) 
STACK ¢F 47) 


NECLAREPARMS 
BEGIN 
REAL {+ Ts NLABELS» INFAsn YNEBe NEC 


NLABELS 
INFA 
INFB 
INFC 
IF DEBURTOG THEN FLAGROUTINECYDECLAR™s "EPARMS'sTRUE ) 3 
INFA « GETCFNEW)$ 
IF INFA,SEGNO # 0 THEN BEGIN XTA « NNEWS FLAGC25) ENDS 
INFA,SEGNO * NSEG3 PUTCFNEW*INFAD3 
ENTRYLINKCELX] «© 0 & FNEWLCTOLINK] & NEXTSSELTOADORI: 
FOR rt «© 4 STEP 4 UNTIL PARMS DO 
BEGIN 
EXTRAINFOCNEXTSS»IReNEXTSS,IC] © PARMLINKLI]3 
NEXTSS «# NEXTSS#43 
IF T «© PARMLINKEI) # O THE 
BEGIN 
GETALLC Te INFAeINFBe INFCD3 
IF BOOLEANCINFA »FORMAL) THEN 
BEGIN 
IF INFA,SEGNO = ELX THEN 
BEGIN XTA « INFB 3 FLAGC26): END3 
FND ELSE TF CINFA < 0 AND TNFARADDR «< 1024) OR BOOLEANCINFE ACE) 
THEN BEGIN XTA © tNFB? FLAGCIO7) ENDS 
INFA « [NFA & 1£TOFORMALI] & ELXLTOSEGNO]3 
INFC »BASE « [3 
PUTCTsINFA)S PUTCT+2eINFC)3 
END ELSE NLABELS « NLABELS+13 
END3 
IF NLABELS > O THEN 
BEGIN ENTRYLINKFELX J.CLASS + NLABELS3 
IF LABELMOM=0 THEN BEGIN BUMPLOCALS$ LABELMOM*LOCALS+41536 END} 
END} 
GETALLCFNEWeINFArINFBs INFC)S 
IF BOOLEANCINFC,(121)]) THEN 
BEGIN 
IF INFC,NEXTRA # PARMS THEN 
BEGIN XTA « INFB3 FLOGC41)93 
PARMS « [NFC,NEXTRA3 
END3 
T © INFC.ADINFO? 
FOR J] « 1 STEP 1 UNTIL PARMS 00 
IF NOTCPARMLINKEI) = 0 EQY 
EXTRAINFOLCT+IM1 9, TReCT+Ie i eI C)eCLASS = LABELIDD THEN 
BEGIN TF PARMLINKFI} = O THEN XTA « "te "" 
ELSE XTA « GETCPARMLINKCIJ41)3 


Houen HW oO We 


FLAGC4O)$ 
ENDS 
END 
ELSF 
BrGIN 


TF PARMS = 0 THEN INFC « =yNFC ELSE 
INFC « @CINFC & PARMS[ETONEXTRA] 


04430000 
04431000 


START OF SEGMENT 


04431010 
04432000 
04433000 
04434000 
04435000 
04436000 
04437000 
04438000 
04439000 
04440000 
04441000 
04442000 
04443000 
04443100 
04444000 
04445000 
04445100 
04445200 
04446000 
04447000 
04448000 
04449000 
04450000 
04451000 
04452000 
04453000 
04454000 
04455000 
04456000 
04457000 
04458000 
04459000 
04460000 
04461000 
04462000 
04463000 
04464000 
04465000 
04466000 
04467000 
04468000 
04469000 
04470000 
04471000 
04472000 
04473000 
04474000 


T 
T 


A OK RO Ok 
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0513 
0513 


0000 
0002 
0003 
0006 
0009 
0012 
0016 
0016 
0019 
0020 
0022 
0022 
0024 
0024 
0025 
0026 
0028 
0031 
0034 
0037 
0038 
0040 
0044 
0046 
0047 
0050 
0056 
0056 
0058 
0058 
0059 
0060 
0062 
0063 
0063 
0065 
0067 
0068 
0073 
0076 
0080 
0080 
0083 
0083 
0083 
0083 
0085 


} 


~ 


Coy GG Ce ee Se EG SP. CF 


O © 


OQ 


Cr O.. -G) 


PRT¢733) 5 
STACK(F 42) 
STACK ¢F43) 
STACKEF 44) 
STACK¢F +45) 


STACK¢CF+4+6) 
STACK (F 47) 


& NEXTEXTRALTOADINFOJ)3 
PUTCFNEW+oe INFCD3 
FOR 1 « 4 STEP 14 UNTYL PARMS DO 
BEGIN 
EXTRAINFOCNEXTEXTRA, IR*#NEXTEXTRA.IC] « O & 
CIF PARMLINKEI} = O THEN LABELID ELSE O)CTOCLASS]$ 
NEXTEXTRA «© NEXTEXTRA#413 
ENDS 
END$ 
IF ELX « ELX+#1 > MAXEL THEN BEGIN FLAGC128)3 ELX «+ O END; 
TF DEBUGTOG THEN FLAGROUTINEC'DECLAR',."EPARMS",.FALSE) 3 
FND DECLAREPARMS:3 


PROCEDURE 1OLISTCLEVEL)3 REAL LEVEL3 


rOLYST 


Lt er | ee 


a 


BEGIN ALPHA LADR2sT3 
LANR2 
t 

BOOLEAN A} 

INTEGER INOXe T*eBDLINKeNSUBS; 
INDX 


I 
BDL INK 


STACK(F4+109 5 NSUBS 


PRTC734) = 


LABEL ROUND XITs ERROR» LOOPs SCRAMS 
INTEGER STREAM PROCEDURE CNTNAMCIDEN)? VALUE IDEN3 


CNTNAM 


BEGIN LABEL XIT: 
SI := LOC IDEN? SI t= SI + 33 TALLY t= 1 
SC¢IF SC =" ™ THEN JUMP OUT TO XITSS] 3 
XIT: CNTNAM 3= TALLY3 

END CNTNAM? 


TF DEBURTOG THEN FLAGROUTINEC# LOLs "IST 
ROUND! DFSCREQ « TRUE 
-LOCALNAME t= FALSE3 
TF GLOBALNEXT = SEMI THEN GO TO XIT; 
TF GLOBALNEXT = STAR THEN 
BEGIN tf NOT NAMEDESC THEN 
TV t= ENTERCORLASTSIDFTOCLASS J oLISTID§sLrSTyD+1 23 
LOCALNAME t= TRUE$ NAMFDESC t= TRUE? SCAN3 
END} 
IF GLOBALNEXT = [D THEN 
BEGIN LINDX « FNEXTS3 
SCANS XTA «© GETCLINDX4193 
IF GLOBALNEXT = EQUAL THEN 


",TRUE ) 3 


SRETURN TO CALLER 


BFGIN IF CLINFA#GETCGETSPACECLINDX))).CLASS # VARID THEN FLAGC(50)3 


SCRAM? IF (LEVEL « LEVEL@1) < 0 THEN FLOG(97)3 
GO TO XIT3 
END? 


IF DATASTMTFLAG AND SPLYNK 2 0 THEN 
BratN 
IF BOOLEANCGETCLINDX)sFORMaL) THEN FLAGC147)3 


ADECLARE OWN 


; . 
a ST#is TALLY t5 TALLY#1)3 


134 


1s 


START OF SEGMENT 


04475000 T 0087 
04476000 T 0089 
04477000 T 0090 
04478000 T 0092 
04479000 T 0092 
04n80000 T 0094 
04481000 T 0098 
04482000 T 0099 
04483000 T O104 
04484000 T O01 
04484010 T 0105 
04485000 T 0407 
113 LONGs. NEXT SEG 
04486000 T 0513 
04487000 T 0513 
Ho IO AIO 
04487050 T 0000 
04487100 T 0000 
04488000 T 0000 
04488100 T 0000 
04488200 T 0000 
04488300 T 0000 
04488400 T 0000 
04488500 T 0002 
04488600 T 0003 
04489000 T 0004 
04490000 T 0004 
04491000 T 0004 
04492000 T 0007 
04492100 T 0007 
04493000 T 0009 
04493100 T 0010 
04493150 T O011 
04493200 T 0013 
04493300 T 0047 
04493350 T 0024 
04494000 T 0024 
04495000 T 0021 
04496000 T 0073 
04497000 T 0025 
04498000 T 0026 
04498100 T 0030 
04498200 T 0034 
04499000 T 0037 
04500000 T 0037 
04500100 T 0037 
04500200 T 0038 
04500300 T 0039 


yes 


IF 


SPLINK>4 THEN 
IF GFTCLINOX),ANDR>1023 THEN FLAGCI74)3 


LINDX « GFTSPACEC*LINDX)3 


IF 


BOOLEANCGETCLINDX).FQ@) THEN FLAGC168)3 


END FLSE LINDX « GETSPACECLINDX)3 
Tr T « CLINFA+GETCLINDX))2CLASS > VARTD THEN FLAG(50)3 
1p XREF THEN ENTERXCXTA,CO&LINFAL 1521529993 
IF GLOBALNAME OR LOCALNAME THEN 
IF NAMEIND$= NAMEIND4+1 GTR LSTMAX THEN FLOGC161) 
ELSE NAMLISTCNAMEIND] s= XTA & CNTNAMCXTAIL9!2453373 


Ir T 


ARRAYID THEN 


IF GLOBALNEXT # LPAREN THEN 
BEGIN IF SpLINK # 1 THEN 


ENn 


BEGIN 

EMITL(O)3 

EMITPAIRCLADDR «© LINFAe ADDR» LOD) 

EMITOCFTC)3 

EMITDESCLIT(2)3 

EMITOCINX)3 

EMITOCLOD)3 

END ELSE EMITPATRCLADDReLINFAADDRsLOD)$ 
NSUBS ¢5 CT t= GET CLINDX+2)),NEXTRAS 
IF GLOBALNAME OR LOGCALNAME THEN 
BEGIN 


TF NSUBS GTR SAVESUBS THFN SAVESUBS ts NSUBS3 
TF NSUBS GTR NAMLYSTr¢ 0] THEN NAMLYISTLO] #= NSUBS; 


NAMLISTFNAMETND], £128] t= NSUBS; 
INDX &= =13 
INFA t= GETCNEFDC",SUBAR",BLOCKID)).ADDRS 
BOLINK t= T,ADINFO+ G3 
ENDS 
IF BOOLEAN CLINFA, FORMAL? THEN 
BEGIN 
IF T USS 0 THEN EMITOPDCLITCT,SIZE) 
ELSE EMITNUMCT.SIZE)3 
EMITOPDCLITCLADDR = 14)3 
EMITOCCTF)3 
END ELSE EMI TNUMCTeRASENSIZE)3 
IF GLOBALNAME OR LOCALNAME THEN 
FOR 7 t= 4 STEP 1 UNTIL NSUBS DO 
BEGIN IF T t= EXTRAINFOLCBDLINK?=BDLINK#1)eIRe 
BDLINK,IC}] LSS 0 THEN EMITOPDCLITCT) 
ELSE EMITNUMCT)3 
FMITNUMCINDX %= INDX#1)3 
EMITDESCLITCINF ADS 


EMITOCSTD)3 
END3 
EMITLC18)% EMyTOCSTDI 
ELSE 


BEGIN SCANS 
A «CIF GLOBALNAME OR LOCALNAME 
THEN SUBSCRYPTSCLINDX*4) FLSE SUBSCRIPTSCLINNX22))3 
SCAN3 

END 


FLSF EMITNCLYNDX)3 
TF GLOBALNAME OR LOCALNAME THEN 


BFGIN 


EMITOPOCL17T¢18)% EMP TNUMENAMEIND)3 


04500310 
04500320 
04500400 
04500420 
04500500 
04500600 
04500655 
04500700 
04500725 
04500750 
04501000 
04502000 
04503000 
04503004 
04503008 
04503010 
04503020 
04503030 
04503040 
04503050 
04503055 
04503100 
04503125 
04503150 
04503160 
04503170 
04503175 
04503180 
04503190 
04503200 
04503225 
04504000 
04505000 
04505200 
04506000 
04507000 
04508000 
04509000 
04509050 
04509100 
04509150 
04509200 


"04509250 


04509300 
04509350 
04509400 
04509450 
04510000 
04511000 
04512000 
04513000 
04513100 
04514000 
04515000 
04516000 
04516100 
04516200 
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0044 
0042 
0046 
0047 
0050 
0051 
0055 
0058 
0060 
0063 
0067 
0068 
0069 
0070 
0071 
0072 
0074 
0074 
0075 
0076 
0077 
0079 
0082 
0084 
0084 
0086 
0089 
0091 
0092 
0095 
0097 
0097 
0097 
0098 
0099 
0104 
0105 
0106 
0108 
0109 
O1ti 
0113 
0116 
0117 
0119 
0120 
0121 
0123 
0124 
0124 
0125 
0126 
0131 
0131 
0131 
0132 
0134 


O 


C3/DIB)# EMITDC15+TRBDS 
’ 


END? 
EMITLCLINFAsCLASNSUBROL 4424731193 
EMITLC2093 EMITOCSTD):; 


IF aOR > 4083 THEN 


END} 


BEGIN ADR*ADR+13 SEGOVF END 3 
BRANCHLITCLISTART» TRUE )$ 
EMITLE19)3 EMITOCSTD)3 
EMITOCRTS)$ ADJUST? 

GO TO LOOP: 


1F GLOBALNE XT = LPAREN THEN % ReEcURSE ON ¢ 
BEGIN EMITBC™19FALSE)3 


LOOPS 


AnJUST3 
LADR2 « CADR + 1IRLAXETOADDRIRNSEGCTOSEGNO]3 
ScAN: LEVEL « LEVEL + 43 
1OLYSTCLEVEL)3 
te GLOBALNEXT # EQUAL THEN % PHONY fMP DO 
BrGtN BRANCHESET « LADR2.ADDR] « BRANCHX3 
BRANCHX « T3 
IF GLOBALNEXT # RPAREN THEN GO TO ERROR? 
SCANS GO TO LOOP? 
EnD3 
IF XREF THEN ENTERX(GETCLINDX4+1)} ®18LINFALIS #1589793 
IF LINFA,SUBCLASS > REALTYPE THEN 
BEGIN XTA © GETCLINDX + 193 
FLAGC84)3 
Ends 
EMITRO*1sFALSE)3 
LADR3 « LAX3 
FYXBCLADR2-¢ADDR)$ 
DEFSCREQ « FALSE 
SCANS IF EXPRCTRUE) > REALTYPE THEN FLAGCL02)3 & INITIAL VALUE 
EMITNCLINDX)3 EMITOCSTD); 
EMITBCLADR2eFALSE)3 . 
If GLOBALNEXT # COMMA THEN GO TO ERRORS 
ANJUST3 
LADRG4 «+ CADR + 12 &NSFGLTOSEGNO]3 
SCANS IF EXPRCTRUE) > REALTYPE THEN FLAG(102) FLSE EMITOCGRTRI3 
EMITRELADR2sTRUE DS 
EMITB¢™1*eFALSE D3 
LADRS « LAX3 
FrxXBel,ADR3)3 
IF GLOBALNEXT # COMMA THEN EMITL(C1) 
Fy) SE BEGIN SCANS IF EXPRCTRUE) > REALTYPE THEN FLAGC102)3 END? 
EMITVCLINDX)3 EMITOCADD)s 
EMITNCLINDX)3 EMITOCSND)3 
EMITBCLADR4eFALSE)? 
FrXBCLADR5)3 
IF GLOBALNEXT = RPAREN THEN SCAN ELSE GO TO ERROR} 
TF GLOBALNEXT = SEM] OR GLOBALNEXT = SLASH THEN GO TO XIT3 
IF GLOBALNEXT = RPAREN THEN GO TO SCRAM3 
IF GLOBALNEXT = COMMA THEN 
BEGIN SCAN$ 
IF GLOBALNEXT = SFMI THEN GO TO ERROR; 
GO TO ROUND: 


04516300 
04516350 
04516400 
04517000 
04518000 
04518100 
04518200 
04519000 
04520000 
04521000 
04522000 
04523000 
04524000 
04525000 
04526000 
04527000 
04528000 
04529000 
04530000 
04531000 
04532000 
04533000 
04534000 
04535000 
04535500 
04536000 
04537000 
04538000 
04539000 
04540000 
04541000 
04542000 
04543000 
04544000 
04545000 
04546000 
04547000 
04548000 
04549000 
04550000 
04551000 
04552000 
04553000 
04554000 
04555000 
04556000 
04557000 
04558000 
04559000 
04560000 
04561000 
04562000 
04563000 
04564000 
04565000 
04566000 
04567000 
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0136 
0139 
0141 
0141 
0143 
O144 
0145 
0147 
0448 
0150 
0151 
0153 
0153 
0153 
0455 
0156 
0159 
0161 
0162 
0163 
0165 
0166 
0167 
0168 
0168 
0172 
0173 
0176 
0176 
0176 
0178 
0178 
0180 
0180 
0183 
01485 
0186 
0187 
0188 
0190 
0494 
0495 
0196 
0197 
0198 
0199 
0203 
0205 
0206 
0207 
0208 
0210 
0213 
0214 
0215 
0216 
0217 


Or 3 


(6 ee © me © eee ae © ae © ee © 


O 


O 


( 1 
3 


PRT(735) 


PRT¢736) 


- 
- 


= 


END} 
FRROR? yxTA « NAMES 
FLAG(94)3 
tF GLOBALNEXT = SEM? THEN GO TO XIT} 
SCANS 
tf GLOBALNEXT = 1D THEN GO TO ROUND} 
FRRORTOG «© TRUES GO TO XyT3 
FN} ; 
1F GLOBALNFXT = RPAREN THEN GO TO SCRAM ELSF 
1F GLOBALNEXT # SLASH THEN GO TO FRRORS 
XIT! IF DEBUGTOG THEN FLAGROUTINEC" LOLs" ST 
END fouySTs 


"sFALSE) 3 


INTEGER PROCEDURE FILECHECKCFILENAME® FILETYPE) 3 


FILECHECK 


VALUE FrLENAMEe FILETYPE ALPHA FILENAMES INTEGER FILETYPE? 
BEGIN CoMMENT THIS PROCEDURE RETURNS THE PRT CELL ALLOCATED To 
THE FILE FIWLENAMEeee A CELL IS CREATED IF NONE EXISTS3 
IF DEBUGTOG THEN FLAGROUTINEC" FILEC™ "HECK "sTRUE ) 3 
EMITLCI¢ NOTOPIO THEN 2 ELSE 5)3 % FOR 10 DESCRIPTOR 
IF T « GLOBALSEARCHCFILENAME) = O THEN % FILE UNDECLARED 
BEGIN MAXFILES « MAXFILES + 13 
BUMPPRT} 
1 ¢ GLORALENTERC*ORCFILECHECKePRTS) fF TOADDR) 
&FILEIDrTOCLASSJ] FILENAME )+23 
INFOCT .rReteIC}. LINK «© FILETYPES 
END ELSr © &% FYLE ALREADY EXISTS 
FILECHECK « GETCT), ADDR 
1F DEBURTOG THEN FLAGROUTINEC! FILEC'*» "HECK “,FALSE) 3 
END FILFCHECKS 
PROCEDURE INLINEFILES 


INLINEF ILE 
BEGIN CoMMENT THIS PROCEDURE GENERATES THE CODE To BRING UP THE FILEeee 
IF THe FILE 1S An INTEGER THEN FILECHECK IS CALLED» IF THE FILE 
IS NOT AN INTEGER THEN INWLINE CODE IS GENERATED FOR OBJECT TIME 


ANALYSIS3 
REAL’ TESTS3 


STACKC(F +2) = TEST 


COMMENT IF LAST INSTRUCTION WAS A LIT CALL THEN WE HAVE SEEN REFERENCE 


TO AN INTEGER FILE ID3 
1F DEBUGTOG THEN FLAGROUTINEC’ INLIN'S"EFILE Ms TRUE ) 3 
TEST#ADR 3 
IF EXPR¢e TRUE I>REALTYPE THEN FLAGC102) 
ELSE IF EXPRESULT=NUMCLASS THEN 
BEGIN XTAeNNEW 3 
IF EXPVALUE21,085 OR EXPVALUESO,5 THEN FLAG(33) 
ELSE BEGIN 


IF ADReTEST THEN % EXPR GOT SEGOVFL="*ASSUME NO WRAPAROUND 


EMITOCDEL) 
ELSE ADR«TEST3 
TESTeSPCLBIN2DECCCISEXPVALUE D5 


fF XREF THEN ENTERXCTEST&ICTOCE],0O&F 1LEIDETOCLASS)) 
EMITDESCLITCFILECHECK COR", "Cy os grt 6JRTESTL 18842930)» 


IF DCINPUT THEN 142 ELSE 2)) 3 
END 3 
END ELSE 


132 1S 


04568000 
04569000 
04570000 
04571000 
04572000 
04573000 
04574000 
04575000 
04576000 
04577000 
04578000 
04579000 


236 LONG 


04580000 


04581000 
04582000 
04583000 
04583010 
04584000 
04585000 
04586000 
04586500 
04587000 
04588000 
04589000 
04590000 
04591000 
04591010 
04592000 
04593000 


04594000 
04595000 
04596000 
04597000 
04598000 


START OF SEGMENT 


04599000 
04600000 
04600010 
04601000 
04602000 
04602500 
04603000 
04603500 
04604000 
04604010 
04604020 
04604025 
04604030 
04604040 
04604050 
04604060 
04604070 
04604080 


Ae et Ht 


Aga H Hs AH AHA HHH 


AA AAR H ARH AHHH 


0218 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0224 
0225 
0227 
0230 
NEXT SEG 
0513 


0513 
0513 
0513 
0513 
0516 
0518 
0520 
0522 
0526 
0528 
0530 
0535 
0535 
0539 
0544 
0546 


0546 
0546 
0546 
0546 
0546 


Pere es ts" 


0000 
0000 
0000 
0002 
0002 
0004 
0008 
0010 
0012 
0016 
0016 
0017 
0019 
0021 
0025 
0028 
0031 
0031 


6 


133 


4) 
es 


©) 


O 


@ 


C) 


©) 


PRT¢737) 


PRTC740) 


~ 
= 


COMMENT 


END} 


NOT INTEGER FILEoee 
BEGIN EMITPAIRC17* ISN) 


GENERATE OBJECT TIME CODES 


, 


If FILEARRAYPRT=0 THEN BEGIN BUMPPRTSFILEARRAYPRT*PRTS END3 
EMITOPDCLITCFILEARRAYPRT)3 
EMITOCDUP)3 

COMMENT NEED 7 CONSECUTIVE SYLLABLES? 


EMITLCO)3 
IF ADR 2 4082 THEN 


BFGIN ADR « aDR + 33 


SEGOVF3 


END? 


EME TOCEQUL)3 


EMITLOS+#FPILEARRAYPRT,£38%1I3232%CONSIDFER POSSIBLE XRT 
EMITOCBFC)3 


EMITLOEL)! 


EMITOCLOD)$ 


FMITOCCHS)3 


% BRANCH AROUND TERMINATION CODE 
EMITOPDCLITCFILEARRAYPRT)$ % INV 
EMITLCTF NOTOPIO THEN 2 ELSE 5)3 


EMITOCCNC)$ 


TF DEBURTOG THEN FLAGROUTINEC™ TNLIN's"EF ILE ",FALSE) $ 
END INLNEFILES 


PROCEDURE FILECONTROL(N)} 
FILECONTROL 
BEGIN 


PROCEDURE FORMATER? 


FORMATER 


BEGIN 


COMMENT COMPILES ALL CALLS ON ALGOL, 


E0DS«TRUE 
EXECUTABLE 3 
SCANS EMITOCMKS)3 


EMITLE 


N)3 


s 
’ 


EMITLCO)3 


NOTOPIO « TRUES 
INLINEFILE 3 

EMITOPDCLITC14)3 
NOTOPIO « FALSE 
END FILFCONTROLS 


EMITL¢ 


4)3 


VALUE N* REAL N3 


FILE CONTROL $ 


COMMENT FORMATER COMPILES a PSFUDO cODE USEN BY THE OBJFCT TIME 
FORMATING ROUTINES TO PRONUCE DESIRED 1/0, USUALLY» THERE 15S 
ONE WORD OF PSEUDO CODE PRODUCED FOR EACH EDITING PHRASE. IN 
ADDITION ONE WORD 1S PRODUCED FOR EACH RIGHT PARENTHESIS AND 
SLASH GROUP, 
THE 47TH BIT OF THE FIRST WORD 1S SET IF THERE ARE LIST 
ELEMENT PHRASES IN THE FORMAT STATEMENT, 


THERE 


DEDIMAL 
FOR GROU 


WORD 


CODE 


REPEAT 
WIOTH 


SIGN 


FOR Ps 


FOUR GROUPS OF PHRASES? 


Fo Eo De 
Te Je As 
Xe P 

H 

de # 


Hud & Dhaai oon 
nN 


G 
Os Le 


Ts 


X AND T REPEAT 


Ce 


1 


nou 


REPEAT WIDTH DECIMAL 
REPEAT WIDTH 


REPEAT SPECIAL PURPOSE 
CONTROL REPEAT LINK 


INDEX 
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04605000 
04606000 
04607000 
04608000 
04609000 
04610000 
04611000 
04612000 
04613000 
04614000 
04615000 
04615100 
04616000 
04617000 
04618000 
04618010 
04619000 


61 LONG 


04619010 


04619020 
04619025 
04619027 
04619030 
04619040 
04619050 
04619060 
04619070 
04619080 
04619090 
04620000 


04621000 
04621500 
04622000 
04622500 
04623000 
04623500 
04624000 
04624500 
04625000 
04625500 
04626000 
04626100 
04626500 
04627000 
04627500 
04628000 
04628500 
04629000 
04629500 
04630000 
04630500 
04631000 
04631500 
04631600 
04631625 


AR AH AHA AAA At tH 


oe ee Ree ie ee ee en a 


AAHAAHAR HAHA AHA HAHAH HH 


0034 
0031 
0032 
0038 
0039 
0044 
0041 
0042 
0043 
0044 
0044 
0046 
0046 
0049 
0053 
0053 
0055 
NEXT SEG 
0546 


0546 
0546 
0547 
0548 
0549 
0551 
0552 
0553 
0554 
0556 
0556 


0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 


6 


C) 


‘ee 
t 
; 


STACK(F 42) 
STACK(F43) 


PRT¢741) 


Pi SIGN = SIGN OF SCALE 
WORD FOR GROUP 3:3 
CODE = (€ 13 5) 
REPEAT = (C 6342) 
Ht STRING STARTS aT BIT 18 ANN CONTINUES TO END OF STRING 
RePFAT = NUMBFR OF STRING CHARACTERS 
WORD FOR gROUP 43 


CODE = £1? 53 

REPEAT = f[ 6842) 

LINK = £18342) 

DECIMAL = £30342) 

CNTROL = [47% 4] 

)$ LINK NUMBER OF WORD » 1 BACK TO 1ST PHRASE AFTER 
LEFT PAREN 


REPEAT = REPEAT OF ASSOCIATED LEFT PAREN 
OUTER MOST RIGHT PAREN 
A, DECIMAL # 0 
B, LINKS TO LEFT PAREN OF LAST PREVIOUS RIGHT PAREN 
/t REPEAT = NUMBER OF SLASHES, 
; 
DEFINE APHASE = 6 #, 


VPHRASE = 30 #, 


LPPHRASE = 29 de 
CPHASE = 15 #, 
DOPHASE = 44 Bs 
FPHASE = 42 #, 
GPHASE = 11 #, 
IPHASE = 10 #, 
JPHASE = 9 #e 
LPHASE = 8 #e 
OPHASE = 7 #e 
PPHASFE = 3 He 
TPHASE = 5 #a 
XPHASE = 4 Bp 
RTPARN = O #e 
SLASH = 1 #e 
TOCODE = 41:43; 5 @, 
TOREPFAT = 63363212 #, 
TOWIDTH = 48:36:12 #, 
TOLINK = 18:36:12 #, 
TODECIMAL = 30336312 #, 
TOCNTRL = 47:47: 1 #, 
TONUM = 42:43: S #, 
TOSIGN = 44:47: 1 #, 
WSA = LSTT #3 

REAL Je T3 

= T 
LARBFL KKeSleFL $3 
FORMAT FM¢E//"PHRASF#E CODE REPEAT WIDTH DECIMAL» X25 
eM 


"Jfating 004294) *ra2tsy C444) C4521)" XD 
",6G631], ,£46!9) yf a7tq ys) 3 


04631650 T 0556 
04632000 T 0556 
04632500 T 0556 
04633000 T 0556 
04635500 T 0556 
04635600 T 0556 
04636000 T 0556 
04636500 T 0556 
04637000 T 0556 
04637500 T 0556 
04638000 T 0556 
04638500 T 0556 
04639000 T 0556 
04639500 T 0556 
04639600 T 0556 
04640000 T 0556 
04640500 T 0556 
04641000 T 0556 
04641500 T 0556 
04642000 T 0556 
04642500 T 0556 
START OF SEGMENT #4 %% 4 kek Kx 
04642510 T 0000 
04642520 T 0000 
04642600 T 0000 
04643000 T 0000 
04643500 T 0000 
04644000 T 0000 
04644500 T 0000 
04645000 T 0000 
04645500 T 0000 
04646000 T 0000 
04646500 T 0000 
04647000 T 0000 
04647500 T 0000 
04648000 T 0000 
04648500 T 0000 
04649000 T 0000 
04649500 T 0000 
04650000 T 9000 
04650500 T 0000 
04651000 TY 0000 
04651500 T 0000 
04652000 T 0000 
04652500 T 0000 
04653000 T 0000 
04653500 T 0000 
04654000 T 0000 
04655000 T 0000 
04655100 T 0000 
04655400 T 0000 
START OF SEGMENT #2 >Re Rk 
04655410 T 0000 
04655420 T 0000 


O 


© 


Q) 


STACK ECF 44) 
STACK (CF 45) 
STACK¢(F 46) 
STACK¢CF47) 
STACK¢CF 410) 
STACK¢(F 411) 
STACK¢F 412) 
STACK ¢F 413) 
STACK¢CF414) 


STACK¢EF 415) 
STACK (F416) 


STACK EF 417) 
STACK (F420) 


STACK¢F 421) 
STACK¢(F 422) 
STACKC(F +23) 
STACK(F +24) 
STACK(F +25) 
STACK(F +26) 
STACKCF+27) 
STACKCF 430) 


STACKCF 431) 
STACK¢CF4+32) 
STACK¢CF4+33) 
STACKCF+34) 


PRY¢742) 


PRT¢743) 


PRTC744) 


PRT(745) 


PRT( 746) 


INTEGER Dale CODEsREPEAT»WIDTH»sDECIMAL*# TOTAL» SLCNT»SAVLASTLP. 
D 
I 
CODE 
REPEAT 
WIDTH 
DECIMAL 
TOTAL 
SLCNT 
SAVLASTLP 
PARENCTsSAVTOTAL3 


uo on 


nuh 


PARENCT 
SAVTOTAL 

BOOLEAN VRRSASK 3 
VRB 


uo 


eon 
> 
wn 
x 


BOOLEAN LISTELs»s HF» ZF» QF, PFs MINUSPs» FIELD» STRINGFS 


FIELD 
STRINGF 
BOOLEAN COMMAS*s DOLLARS» PLUSP» STR; 
COMMAS 
DOLLARS 
PLUSP 
STR 
LABEL ROUND» NOPLACE »NUMPNUL > LPe RP sENDER*NOEND a FALL» SEMIC*®NULL3 
LABEL NeWWDe ROUNDY3 
ALPHA STREAM PROCEDURE GETCHARCNCRV, T)? VALUE NCRV3 
GETCHAR 
BEGIN St « NCRVS Dt « TS Dt © Dr#?73 DS © CHR} GETCHAR « S13 
FND GETCHAR3 
BOOLEAN PROCEDURE CONTINUES 
CONT NUE 
BEGIN 
LABEL LooP?3 


nnundana 
o 
pa 


Huadu 


BOOLEAN STREAM PROCEDURE ConTiNcCD); 
CONTIN 
BEGIN SrecD; IF SC # "C™ THEN IF SC # "8" THEN BEGIN SI«SI+53 
Ip SC # * * THEN IF SC #4 "O" THEN BEGIN TALLY13 
CoNTIN « TALLY END END 
END OF CONTINS 
BOOLEAN STREAM PROCEDURE COMNTCCD*T)$ VALUE T3 
COMNT 
BEGIN LABEL Ls 
Sl*tns IF SC = "C" THEN BEGIN TCSIeSIl#13 IF SCstt=" THEN 
TALLY«1 ELSE JUMP OUT To L93 TALLY«1? Lt ENDS COMNTe*TALLY? 
END COMNT3 
BOOLEAN STREAM PROCEDURE DCCONTIN(Cn)3 
NCCONTIN 
BEGIN Srecns IF SC = "=" THEN TALLY © 1% DCCONTINeTALLY3 


135 1S 


04656000 


04656100 


04656500 


04656600 


04657000 
04657100 
04657500 


04658000 
04658500 
04659000 


04659500 
04660000 


START OF SEGMENT 


04660500 


04661000 
04661500 
04662000 
04662500 
04663000 


04663500 
04664000 
04664500 
04665000 
04665500 


04666000 


» NEXT SEG 
T 0000 
T 0000 
T 0000 
T 0000 
T 0000 
T 0000 
T 0000 
T 0000 
T 0000 
T O00; 
T 0002 
T 0002 
T 0002 
‘Teer errr s. 
T 0000 
T 0000 
T 0002 
T 90004 
T 0005 
T 0006 
T 0006 
T 0006 
T 0009 
T OO1L 
T 0012 
T O012 


136 


. 


PRTC747) 


PRT¢750) 


é |] 


END DCCONTINS 


LOOP 


1F NOTCCONT]NUE « 
1F DCINPUT AND NOT TSSEDITOG OR FREEFTOG THEN 
IF NEXTCARD<4 THEN DCCONTINGECB) 
ELSE IF NEXTCARDS7 THEN DCCONTINCDB) ELSE CONTIN¢TB) 
ELSE IF NEXTCARD<g THEN CONTINCCB) 
ELSE IF NEXTCARD=7 THEN CONTINCDB) ELSE CONTINCTB)) 
THEN IF CIF NEXTCARD « 4 THEN 
COMNTCCB*DCINPUT AND NOT TSSEDITOG OR FREEFTOG) 
ELSE IF NEXTCARD = 7 THEN 
COMNTCDB*DCINPUT AND NOT TSSEDITOG OR FREEFTOG) 
ELSE COMNTCTB20) AND NEXTCARD#6) THEN 
BEGIN 
IF READACARD THEN IF LISTOG THEN PRINTCARD3 
GO TO LOOPS 
ENDS 


END CONTINUES 


STREAM PROCEDURE STORECHARCARYsPOSIT*# CHAR) VALUE POSIT? 


STORECHAR 


BEGIN Sy «CHARS SI] « ST + 73 


Or * ARYS DI « Dt + POSrT3 
DS « CHR} 


FND STORECHARS 
ALPHA STREAM PROCENURE BACKNCRCNCRV)# VALUE NCRV3 


BACKNCR 


BEGIN SreNCRVS Sy « St=1? BACKNCR « Sts END BACKNCR? 
COMMENT *eeeee RK START OF CODE #8 ROR HOOK RES 

IF XTA « LABL = BLANKS THEN FLAGC18) ELSE 

IF O» SFARCHCLABL) = 0 THEN 


De EnTERCO & FORMATIDECTOCLASS]» LABL) ELSE 
IF GETCD) CLASS # FORMATID THEN BEGIN DeosFLAGC143) END3 


IF XREF THEN ENTERXCLABL* 1&8FORMATIDETOCLASS])3 
LABL * RLANKS} 

NCR © BACKNCRENCR)$ 

WSACO] « TOTAL «© 13 


ROUND(: 
ROUNDS 


XTA «+ BLANKS3 
NCR « GETCHARCNCReT)3 
rT = "J" THEN GO TO NOPLACE; 
XTA «© T & XTAL12318230]3 
TeIF ¢CT="a" OR T="<") ANyn 

CHOLTOG OR NOTCHF OR STRINGF)) THEN "4+" ELSE 
rr ¢TS"@" OR T=a"s") AND CHOLTOG OR NOT HF) THEN trite 

ELSE T3 

tF NOT CHF OR STRINGF) THEN 

FFTs" © THEN gO’ TO ROUND 

FLSE IF T&"s" THEN GO SL 3 
1F HF THEN 
REGIN 

STORECHARCWSALTOTALJ sIeT)3 

IF HF © REPEAT « RePraAT = 1 # O THEN 

IF 1 «© t+#1 = 8 THEN 

BEGIN fF TOTAL « TOTAL +4 > LSTMAX THEN GO TO NUL,3 

WSALTTOTAL] «+ [| © OF GO TO ROUND! 

END ELSE GO TO ROUND ELSE GO TO NULy3 

FNO3 


IF NOT STRINGF THEN 


04666500 
04667000 
04667500 
04667600 
04668000 
04668500 
04668600 
04669000 
04669500 
04670000 
04670100 
04670500 
04671000 
04671500 
04672000 
04672500 
04673000 


AAH HAH aH AIA 


59 LONG» 


04673500 


04674000 
04674500 
04675000 
04675500 
04676000 


04676500 
04677000 
04677500 
04678000 
04678500 
04679000 
04679400 
04679500 
04680000 
04680500 
04680700 
04681000 
04681002 
04681004 
04681010 
04681020 
04681030 
04681060 
04681100 
04681120 
04681140 
04683000 
04683500 
04684000 
04684500 
04685000 
04685500 
04686000 
04686500 
04687500 
04687510 


T 


Aaa 


AAA AAR ARH AHA HAHAH HAHAH est A 


0014 
0015 
0016 
0019 
0021 
0026 
0030 
0035 
0038 
0041 
0044 
0048 
0052 
0053 
0055 
0056 
0056 
NEXT SEG 
0002 


0002 
0003 
0004 
0004 
0004 


0004 
0006 
0006 
0009 
0014 
0014 
0019 
0021 
0022 
0024 
0026 
0026 
0029 
0030 
0032 
0033 
0037 
0044 
0042 
0043 
0045 
0046 
0047 
0047 
0049 
00514 
0053 
0056 
0058 
0058 
0058 


7 


C) () C) O 


C) 


ee & ae 


Oo” 1). Oo “Ge “Or © 


If SLCNT > O THEN 
Ip T = "/" THEN BEGIN SLCNT « SLCNT+413 GO TO ROUNDS END 
EI.SF 
BFGIN WSALTOTAL] « O & SLONTELTOREPEAT) & SLASHCTOCODE}3 
IF NOT STR THEN 
IF REPFAT < 16 AND WSALTOTAL"1).(42%6) = 0 THEN 
WSALETOTAL+#TOTAL#=13] © WSALTOTAL] & SLONT£4234414) 
& 102463478173 
COMMAS«DOLLARS«BOOLEANCSLCONT¢0)% NCReBACKNCRENCR) 3 
GO TO NULG3 


END} 
1F NOT QF THEN IF T = "" THEN IF STRINGF « NOT STRINGF THEN 
BEGIN 'F CODE > 4 THEN BEGIN STRINGF « FALSE 
NCR « BACKNCRCONCR)$ 60 TO ENDER FND3 
SAVTOTAL « TOTALS JeO3 Je3% QF « TRUBS 
WSArTOTAL) «+ O & HPHASELTOCODE]3 
GO TO ROUND: 
END ELSE 
BEGIN 
WSACSAVTOTAL] «© WSALSAVTOTALI & YETOREPEATI3 
IF I = 0 THEN TOTAL «© TOTAL = 33 
CODE + HPHASE} 
GO To ENDER3 
END} 
1F STRINGF THEN 
BEGIN 
STORECHARCWSALTOTALJeIeT)3 
J« J + 13 QF *© FALSE} 
IF 1 ¢ T#4 = 8 THEN 
BEGIN 
IF TOTAL « TOTAL +1 > LSTMAX THEN GO TO NUL} 
1 « WSACTOTAL] © 03 


ENNS 
GO TO ROUND} 
ENDS 
CASE T OF 
BEGIN | 
PRTC751) = *CASE STATEMENT NESCRIPTOR* 
BEatN ZF « TRUES z 0 
NUM& DECIMAL « 190 * DECYMAL + TS 
1F ASK THEN 
BEGIN FLAGC183) 3 
FL DO BEGIN NCR«eGETCHARCNCRsT)3 XTAeT&XTAL12218230) END 
UNTIL T#"*" AND T>9 AND T## # 3 
NCReBACKNCRONCRIS XTA#BLANKS&XTAL18812330) 3 
END 
ELSE 
IF DECIMAL>4090 THEN BEGIN FLAGC172)3 DECIMAL©1 END $3 
IF CODE = O THEN REPFAT « DECIMAL 
ELSE IF PF THEN BEGIN IF DECIMALS>WIDTH AND WIDTH#0 AND CopE# 
VPHRASE THEN FLAGC129) END ELSE WIDTH*DECIMAL 3 
GO TO ROUND: 
ENn3 
GO TO NUM# GO TO NUM$ gO TO NuMs %¥ 4123 
GO TO NUM$ GO TO NUM3 GO To NUM3 %4 5 6 
GO TO NUMS GO TO NUM# GO TO NuUM3 789 
Spe gps Z#@Q 2 > 2 


04687520 
04687530 
04687550 
04687560 
04687580 
04687590 
04687600 
04687620 
04687650 
04687655 
04687660 
04688000 
04688500 
04689000 
04689500 
04690000 
04690500 
04691000 
04691500 
04692000 
04693000 
04693200 
04693500 
04694000 
04694500 
04695000 
04695500 
04696000 
04696500 
04697000 
04697500 
04698000 
04698500 
04699000 
04699500 
04707000 
04707500 


04708000 
04708500 
04708540 
04708515 
04708520 
04708525 
04708530 
04708535 
04708540 
04708550 
04709500 
04710000 
04710500 
04712000 
04712500 
04713000 
04713500 
04714000 
04714500 


AHAHATHH HHA HAHAH AAU ATH HAHAHA AAA AHH TTA AA HT A st a 


0059 
0060 
0063 
0063 
0067 
0068 
0071 
0075 
0076 
0080 
0080 
0080 
0083 
0086 
0088 
0091 
0093 
0094 
0094 
0094 
0097 
0099 
0100 
0101 
0104 
0101 
O101 
0103 
0105 
0107 
0107 
0109 
O1tt 
O111 
0112 
0112 
0112 


0112 
01143 
0415 
0116 
0117 
0124 
0125 
0128 
0128 
0128 
0134 
0133 
0138 
0142 
0142 
0143 
0444 
0146 
0147 


C 


C) 


OO Ge 


C) 


2) 


O) 


KK 


BERIN PLUSP « TRUE GO TO ROUNDS END? 
BEnIN CODE « APHASE? gO TO NOEND ENDS 


BFetN CODE « CPHASE# gO TO NOEND ENDS 
BEaIN CODE « DPHASE# GO TO NOEND ENDS 
BEGIN CODE « EPHASE? GO TO NOEND END$ 
BEGIN CODE + FPHASES GO TO NOEND END; 
BEGIN CODE «+ GPHASE? GO TO NOEND END$3 
BEGIN IF REPEAT = 0 THEN FlL0G6(€130)3 

IF ASK THEN BEGIN FLOGC32 93 GO SEMIC END 3 

HF « TRUES I © 33 CODE «+ HPHASE) 

WSALTOTAL] «© O & HPHASECTOCODE] & REPEATLTOREPEATI3 

GO To ROUNDS 


FR AQ BABA BL BL BQ ae BR 
Xo =aIAcrwvwp+ 


ENN} 
BEGIN CODE «© IPHASES GO TO NOEND END} 2 7 
BEGIN IF CODE < 11 OR CODE#15 THEN FLOG(134)3 Be 


IF CONDE=0 OR PF THFN FLOGC32) 3 
PF*+TRUES DECIMAL*#0O% ASK*ZFeFALSE 3} 
GO TO ROUND; 


ENn3 
GO TO RP3 af 
H ¥R 
LPs 
BEGIN IF CODE # O THEN FLOG(32)3 %¢ 
IF ASK THEN REPFAT+40953 IF REPEATSO AND ZF THEN FLAGC173) 3 
NAMLYSTPSAVLASTLP « PARENCT © PARENCT#1] © O & TOTALLTOWIDTH) 
&CTF REPEATSO AND PARENCT>1 THEN 1 FLSE REPFATICTOREPEAT] 3 
1F ASK THEN 
BEGIN ASKeVRBeFALSE 3 
WSAL TOTAL] #328LPPHRASELTOCODEJ&4095[TOREPEAT] 3 
IF ¢TOTAL«TOTAL4+1)>LSTMAX THEN GO NUL 3 
END 3 
ZF eBOOLEANCREPEAT#*DECIMAI,¢0) 3 
STR « TRUE} 
GO To ROUND13 
ENn$ 
> 3 3 %<e x 
BEGIN CODE*JPHASE$ WIDTH«#*™13 GO NOEND END 3 Rad 
BEGIN za K 
IF COMMAS OR CONE4O THEN BFGIN FLAGC32)% COMMAS*«TRUE END 


ELSE BEGIN COMMAS+«TRUF 3 
NO BEGIN NCR*GETCHARCNCRsT)3 XTA«TAXTALI12318330) END 
UNTYTL TAH om 3 
TF ¢T<17 OR ¢T>?25 AND T<33) OR ¢(T>42 AND T<50) OR T?57) 
THEN BEGIN FLAGC32) 3 
IF Tata" OR Te1O THEN BEGIN DECIMALe13 GO FL END 3 


END $3 
NCReRACKNCRONCR)3 XTAeBLANKS&XTAL18312330) 3 


FN } 
GO ROUND 3 
ENA OF K $ 


BEatN CODE « LPHASES GO TO NOENDS END3 +4 
, 4 % 
BEGIN CODE « OPHASE GO TO NOEND$ END3 % 
BEGIN WSACTOTAL] « O & PPHASELTOCODE] % 
& REALCVRB) (42:47:31) 
& REALCMINUSPICTOSIGN] & REPEATCTOWIDTHIJ&1CTOREPEATI3 


04714600 
04715000 
04715500 
04715600 
04746000 
04746500 
04717000 
04717500 
04718000 
04718100 
04719000 
04719500 
04720000 
04720500 
04721000 
04721500 
04722000 
04722500 
04723000 
04723500 
04724000 
04724500 
04725000 
04725500 
04725550 
04726000 
04726500 
04726510 
04726520 
04726530 
04726540 
04726550 
04727500 
04727600 
04728000 
047286500 
04729000 
04729500 
04730000 
04730100 
04730110 
04730120 
04730125 
04730130 
04730135 
04730137 
04730339 
04730140 
04730145 
04730150 
04730160 
04730500 
04731000 
04731500 
04732000 
04732100 
04732500 


AHA HAHAHAHAHA HAH HHA HAHAHA AA AA Rt ITA tt A A AH AA A GH SAR 


0147 
0149 
0151 
01514 
0152 
0154 
0156 
0158 
0159 
0161 
0163 
0166 
0169 
0169 
0170 
0172 
0175 
0177 
01860 
0180 
0181 
0181 
0184 
0182 
0184 
0187 
0190 
0495 
0196 
0497 
0204 
0203 
0203 
0205 
0205 
0208 
0208 
0208 
0211 
0211 
0214 
0215 
0249 
0221 
0226 
0228 
0231 
0231 
0235 
0235 
0235 
0236 
0237 
0237 
0239 
0241 
0242 


C) 


(> 


Cy 20 49 


O 


C) 


(O° AQ 


Sot 


C) 


SL: 


MINUSP « PLUSP « FALSE 
IF (DECIMAL = 0 AND NO 


GO TO NULIS 


H 
T ZF) THEN FLOGC13193 


ENn3 
3 2 QR 
BEGIN IF DOLLARS OR CODE#0 THEN FLAGC32) % g 
ELSE BEGIN DOLLARS«*TRUE$ GO KK END 3 
DOLLARS#*TRUE# GO ROUND 3; 
ENn OF DOLLAR SIGN 3 
IF NOT ASK THEN % * 
BEGIN 
1F ZF OR DECIMAL NEQ@ O THEN FLAG(183)9% DECIMALS=4095;3 R111" 
1F CONF&O THEN REPEAT#DECIMAL 
FLSE YF NOT PF THEN WIDTH*DECIMAL 3 
VRB t= ASK t= LISTFL t= TRUES GO ROUND? 71018 
END ELSE BEGIN DECIMAL?s40953 FLAGC183)3 GO FL END 3 *111= 
BEGIN MINUSP « TRUE? GO TO ROUND; END3 X= 


RP: 
BEGIN IF FIELD THEN BEGIN NCR « BACKNCRONCR)IS & ) 
GO To ENDER? END3 
IF DECIMAL # 0 THEN FLAG(32)3 
I « IF PARENCT = 1 THEN JF SAVLASTLP > { THEN 2 ELSE 14 
ELSE PARENCT} 
WSACTOTALI © CU*®NAMLISTLIJ&CTOTAL+ 1 t@Ued,L18t12Id£TOLINK] 
& CIF PARENCT « PARENCT=41 = 0 THEN 77 ELSE O)LTODECIMALI$ 
IF WSACJJ,£1:5]=LPPHRASE AND PARENCT#0 THEN 
BEGIN WSACJ], C1881 2] ©TOTAL@™U$ WSALTOTALI,£LL8s12]«TOTAL®y 3 
FND 3 
NAMLIST£LI1,06212) « O3 
CODE * HPHASE$ 
GO TO NuLis 


ENn} 
a3 % : LEQ 
GO TO ROUND; % BLANKS 
BEGIN SLCNT «© 13 % / 
IF CODE=O THEN 1tF aSK OR ZF OR DECIMAL#0 THEN 
BEGIN FLAGC32)3 ASK*+ZFeBOOLFANCHECIMAL©«0) END 3 
IF cOpE<5 THEN 1tF T="e" THEN GO ROUND! ELSE GO ROUND FLSF GO 
ENDER 3 
ENn3 
; zs 
BEGIN IF REPEAT # 0 THEN FLAGC32)3 z T 
CODE « TPHASE3 
GO TO NOENDS 
END3 
3 zy 
BEGIN VRB*TRUES CODE*VPHRASES WIDTHe=13 GO NOEND END 3 &% V 
: % W 
BEGIN IF REPEAT = O THEN FLOGC(130)3 % xX 


IF STR THEN P 
NEWWDS WSACTOTAL] © O & XPHASECTOCODE) & REPEAT TOWINTH) 
& 1CTOREPEAT) 
& REALCVRB) 642247214] 
FLSE 
BEGIN . 
IF CU*WSALCTOTAL@19).042%6)>0 OR Cled, £15] SRTPARN 
OR CREPEAT232 AND I#XPHASE) THEN GO NEWWD 3 


04733000 
04733500 


04734500 
04735000 
04735500 
04735600 
04735610 
04735620 
04735630 
04735700 
04735710 
04735715 
04735720 
04735730 
04735740 
04735750 
04736000 
04736500 
04737000 
04737500 
04737600 
04738500 
04739000 
04739500 
04740000 
04740100 
04740110 
04740115 
04740500 
04740600 
04742000 
04742500 
04743000 
04743500 
04744000 
04744100 
04744110 
04744500 
04744505 
04745000 
04745500 
04746000 
04746050 
04746100 
04746150 
04746500 
04746750 
04746800 
04747000 
04747200 
04747400 
04747600 
04747700 
04747800 
04748000 
04748800 
04749000 


ee ee Le Le ee 


0245 
0247 


0249 
0250 
0250 
0250 
0253 
0255 
0256 
0256 
0257 
0257 
0261 
0262 
0266 
0269 
0273 
0275 
0276 
0278 
0279 
0281 
0284 
0285 
0290 
0294 
0297 
0302 
0303 
0306 
0307 
0307 
0308 
0308 
0308 
0309 
0313 
0316 
0319 
0319 
0349 
0319 
0321 
0322 
0322 
0323 
0323 
0326 
0326 
0328 
0329 
0332 
0333 
0334 
0335 
0335 
0339 


pe 


GO 


na, 
Ly 


IF LSXPHASF AND cleJef182121+REPEAT)<4090 THEN 
WSACTOTAL©TOTAL™1) «© J & TLTOWIDTHI 
FLSE fF REPEAT 2 32 THEN GO TO NEWWD 
ELSE WSACTOTALeTOTAL@1] «© J & REPEATLTONUM] 
& 1CTOCNTRLI} 


ENDS 
GO TO NUL‘ 
END} 
> 3 2¥ Z 
GO SL 3 Bos 
GO TO LP % % 
Fo3 3 94¢2y" 


END OF CASE STATEMENT? 


FLOGC139)3 % [TLLEGAL CHARACTERS 
GO TO FablLs 


FNpeR? 


NUL 13 


NOEND# 


FALL? 


NUL 


tr CODE > 4 THEN 
REGIN IF WrpoTH=O0 THEN FLAG C130) 3 
IF CONERVPHRASE THEN 
BEGIN 
IF WIDTH=" THEN IF PF THEN FLAGC130)ELSE WIDTHe 
DECIMAL«4094 ELSE 
IF NOT PF THEN DECIMAL«4094 3 
END 
ELSE 
IF COnE > 10 AND CODE # 15 THEN 
IF cDECIMAL = 0 AND NOT ZF) OR NOT PF THEN FL,AG¢133) 
ELSE ELSE DECIMAL « 03 
IF REPEATSO THEN REPEATe4 3 
IF WIDTH=s"¢ THEN WIDTHeO 3 
WSALTOTAL] © 0 & CODELTOCODE) & WIDTHETOWIDTH] 
REPEATCTOREPEAT] & DECIMALECTODECIMAL) 
REALCCOMMAS) £4434731] 
REALCVRBIC42:4724) 
REALCDOLLARS) [45347:1]3 
FND ELSE IF DECIMAL # 0 THEN FLAG(32)3 
TF PLUSP THEN FLAG(164)3 
1F CODE#VPHRASE THEN 
REGIN 
1F DOLLARS ANDCCODE < 9 OR CODE > 14) THEN FLAG(C166)3 
1F COMMAS AND NOTCCODE = 19 OR CODE = 12 OR CODE = 9) 
THEN FLAGC165)3 
pND 3 
VRBe 


Q@0 go Qo Po 


FRRORTOG « FIELD * PF « PLUSP «+ DOLLARS « COMMAS « STR « FALSE? 


tF CODE = HPHASE THEN STR © TRUES 

cOnr « REPEAT « WIDTH « O3 

XTA « BLANKSS 

nO TO FALL: 

tf FIELO THEN FLAGC32)3 

1F CODE # TPHASE THEN |.ISTEL « TRUE ELSE REPEAT « 43 
tF REPEAT=0 AND ZF THEN FLAGC173) 3 

FIELD « TRUE? 
IF MINUSP THEN BEGIN FLAGC32): MINUSP « FALSE END3 
ASKeZFeFAISE $ 


DECIMAL ©* 03 


START OF SEGMENT 


04749200 T 0343 
04749400 T 0346 
04749600 T 0349 
04749800 T 0352 
04750000 T 0356 
04751000 T 0357 
04752000 T 0357 
04752500 T 0358 
04753000 T 0358 
04753500 T 0358 
04754000 T 0359 
04754500 T 0359 
04755000 T 0359 
ees er ee ey 
64 LONG» NEXT SEG 
04755500 T 0360 
04756000 T 0360 
04756500 T 0364 
04757000 T 0362 
04757400 T 0365 
04757410 T 0366 
04757420 T 0366 
04757425 T 0370 
04757430 T 0371 
04757440 T 0374 
04757450 T 0374 
04757500 T 0374 
04758000 T 0378 
04758100 T 0382 
04758400 T 0384 
04758410 T 0386 
04758500 T 0388 
04759000 T 0391 
04759100 T 0393 
04759150 T 0394 
04759200 T 0395 
04760000 T 0397 
04760500 T 0399 
04760550 T 0401 
04760560 T 0402 
04760600 T 0402 
04760700 T 0406 
04760800 T 0408 
04760850 T 0411 
04760890 T 0411 
04760900 T O411 
04760940 T 0415 
04760980 T Oat? 
04761000 T 0419 
04761500 T 0449 
04762000 T 0470 
04762500 T 0422 
04762510 T 0425 
04763000 T 0428 
04763500 T 0429 
04764000 T 0431 
04764500 T 0432 


137 


134 


C) 


© 


O 


PRT(752) 


STACK¢F 42) 
STACK(F 43) 
STACKCF44) 
STACK(CF 45) 


IF PARENCT = 0 THEN BEGIN SCN « 1% GO TO SEMIC ENDS 
1F CODE < 5 THEN 
Ip TOTAL * TOTAL+1 > LSTMAX THEN 


BEGIN FLOGC78)STOTAL « TOTAL™23 GO TO SEMIC$ END? 


GO TO ROUND: 


NOPLACEs 


SCN ¢« O3 
SEMTC3 


IF SCN = 


IF CDCINPUT OR FREEFTOG) ANN CSTRINGF OR HF) THEN FLOGC150)3 
tF TSSEDITOG THEN IF CSTRINGF OR HE) AND NOT DCINPUT 
THEN TSSEDCXTAs1)3 
1F CONTINUE THEN tF READACARD THEN 
BEGIN tF LISTOG THEN PRINTCARD? GO TO ROUND3 ENDS 
NEXT « SEMIS 


{ THEN SCANS 


1F STRINGF THEN FLAG (22)3 
1F NOT |, ISTEL THEN WSALO) « 03 
1F PARENCT # O THEN FLAGCIF PARENCT «< 0 THEN 9 ELSE 8)3 
IF D # 0 THEN PRTSAVERCDeTOTAL+ eWSAD3 
IF DEBUGTOG THEN BEGIN 
WRITECLINESFM) 3 
FaR t«0 STEP 1 UNTIL TOTAL DO BEGIN 


WRITECLINE® CA3SI// ole CJeWSALII ACIS IU LOS Aled LIBti2JeI el 30812 I» 


*LISTs LABEL» 


Hu uu 


r 
* 
IF gel t25]=2 THEN TeleCJU,f6s1 


oR SEGMENT DESCRIPTOR 
welatet ied 
Je l46riley 


LCaorale I CaesSledeCoasitded,Casrid, 
C46t2]eJeCA721])) 3 
23+25,036:19) 3 


ENN 3 

WRITECLINELCDBLI) 3 

END OF DEBUGSTUFF 3 
END FORMATERS 


PROCEDURE FXECUTABLE3 
BEGIN LABEL XIT# REAL Ts Je TSe PS 


BEGIN 


END}: 


XrTe 


tf SPLYNK < O THEN FLAGC(12)3 

1F LABL = BLANKS THEN GO TO XIT3 

IFT « SEARCHCXTA «¢ LABL) = 0 THEN 

T « ENTER¢ #0 & LABEL 1OrTOCLASS] & ¢ADR41)£TOADDR] & 
NSEGLTOSEGNO]» tABL) ELSE ; 
IF (P « GETCT)),CLASS # |ABELID THEN 

BEGIN FLAGC144)3 GO To XIT ENDS 

IF P < 0 THEN BEGIN FLAGC20)3 GO To XIT END3 

TS « P,ADDR3 

WHILE TS # 0 DO 

BFGIN J © GITCTS)$ FrxpcTS+10000)3 TS « JY END; 

PUTCTsa Pe#=P & CADR+1) 0 TOADDRI] & NSEGETOSEGNO))3 

IF ¢T © GETCT+2)),.BASE # 0 THEN 

T ¢ PRGDESCBLDRC2, T.,BASEs CADR+1).(036310]» NSEG)3 


IF XREF THEN ENTERXC(LABL® 1&LABELIDLCTOCLASS))3 


ENN EXECUTABLE? 


PROCEDURE TOCOMMAND(N)3 


VALUE N3é REAL N3 


134 18 


START OF SEGMENT 


138 1S 


04765000 T 0433 
04765500 T 0436 
04766000 T 0437 
04766500 T 0439 
04767000 T 0442 
04767500 T 0442 
04768000 T 0447 
04768500 T 0449 
04769000 T 0451 
04769500 T 0453 
04770000 T 0456 
04770500 T 0457 
04771000 T 0458 
04771500 T 0459 
04772000 T O46 
04772500 T 0463 
04772600 T 0467 
04772605 T 0471 
04772610 T O471 
04772615 T 0474 
04772620 T 0476 
04772625 T 0492 
04772630 T 0505 
04772635 T 0515 
04772640 T 0519 
04772645 T 0522 
04772650 T 0526 
04773000 T 0526 
535 LONG» NEXT SEG 
04773010 T 0556 
04773020 T 0556 
Wo OR KK Kk 
04773030 T 0000 
04773040 T 0002 
04773050 T 0003 
04773060 T 0005 
04773070 T 0009 
04773080 T 0011 
04773090 T 0014 
04773100 T 0015 
04773110 T 0018 
04773120 T 0019 
04773130 T 0021 
04773140 T 0026 
04773150 T 0030 
- 04773160 T 0033 
04773170 T 0037 
04773175 T 0037 
04773180 T 0040 
04773190 T 0040 
43 LONGe NEXT SEG 
04774000 T 0556 


} 


pos 


PRTC753) = 


STACKEF 42) 
STACK CF 43) 
STACK¢F44) 


STACK ¢F45) 
STACK¢(F+6) 


STACK¢(F47) 

STACK¢ F410) 
STACK¢F 494) 
STACK ¢F 442) 
STACK(F 413) 


PRTC754) & 


STACK(F +42) 
STACKCF +3) 
STACKCF 44) 


TOCOMMAND 


noug 


HOU 


Huu 


ul 


COMMENT COMMAND 
READ 
WRITE 
PRINT 
PUNCH 
BACKSPACE 


Fwnre o2 


7 DATAS 
BEGIN LABEL XITseSUCHe LISTER» NOF ORM» FORMERs WRAP sDAAT SNF 3 


LABEL LISTERS 
BOOLFAN SUCHTOGs ROTRIN»s FREEREAD? 
SUCHTOG 
RDTRIN 
FREFREAD 
BOOLEAN FORMARY» NOFORMT3 
FORMARY 
NOFORMT 
BOOLEAN NAMETOG 
NAMFTOG 
DEFINE mATATOG = DATASTMTFLAG#? 
: REAL Ts ACCIDENT, FDOITCODE; 
ACCIDENT 
EDITCODE 
REAL DATAB3 
DATAB 
PROCEDURE ACTIONLABELSCUNSEEN)3 


VALUE UNSEEN} BOOLEAN UNSEEN? 


ACTIONLABELS 


ou ou 


BEGIN LAREL, EOF eERReRATAPXITT#ACTIONeMULTI? 


BOOLEAN BACKeGOTERRPGOTEOF 
BACK 
GOTERR 
GOTFOF 
IF UNSEEN THEN SCANS 
FOF? fF GOTEOF THEN GO TO MULTY3 
le BACK «+ NAME = "END *" THEN GO TO ACTION; 
FRR? fr GOTERR THEN GO TO MULTY3 
Te NAME # "ERR " THEN Ip GOTEOF THEN 
BrGtN MULTI XTA « NAMES FLOGC137)3 
GO TO X1T3 
END ELSE GO TO RATA; 
ACTTON? SCANS | 
IF NEXT = EQUAL THEN SCAN ELSE GO TO RATA3 
te NEXT # NUM THEN GO TO RATA$ 
tf XREF THEN ENTERXCNAME» O&LABELIDCTOCLASS))3 
IF BACK THEN NXq « NAME ELSE nXo « NAMES 
SCAN’ IF NEXT = RPAREN THEN Go To XIT3 
IF NEXT COMMA THEN SCAN ELSE GO TO RATAS 
IF BACK THEN 
BEGIN BACK «© NOT © GOTEOF « TRUE); 
GO TO ERR3 


“oy 


EnD$ 
GoOTERR « TRUE} 


04775000 
04776000 
04777000 
04778000 
04779000 
04780000 
04781000 
04782000 
04783000 
04784000 


START OF SEGMENT 


04784200 
04785000 


04785020 


04785050 


04785100 
04786000 


04786100 
04787000 


04788000 


START OF SEGMENT 


04789000 


04790000 
04791000 
04792000 
04793000 
04794000 
04795000 
04796000 
04797000 
04798000 
04799000 
04800000 
04800100 
04801000 
04802000 
04803000 
04804000 
04805000 
04806000 
04807000 
04808000 


AA KAM AHA 


44 


T 
T 
T 


* 
T 


AAA RH HAHAHAHA AA 


0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
0556 
A OR GIO $0k 
0000 
0000 


0000 


0000 


0000 
0000 


0000 
0000 


0000 
Peres et sc 


0000 


0000 
0001 
0003 
0005 
0006 
0007 
0009 
0012 
0012 
0012 
0014 
0015 
0018 
0021 
0022 
0024 
0024 
0026 
0027 
0027 


139 


140 


Ce Gyr hs. 


O 


O oO 


(4 


Cy 36 SE. Se 


Se 


F3 
MES FLOGCO)$ 
XITt 

END ACTTONLABELSS 


IF DEBUGTOG THEN FLAGROUTINEC" 1OCOM", "MAND ™,TRUE ) $ 
FONS*N#7 3 
c2 « fF N = 0 OR N = 7 THEN 1 ELSE O3 
SCAN? Jr NEXT = SEMI THEN BEGIN FLOGCO)3 GO TO XIT END 
IF N = 7 THEN 
BEGIN DaTATOG « TRUE 
tr LOGIFTOG THEN FLAGC101)% 
_ LABL « BLANKS} 
Ip SPLINK 2 0 THEN ZNOT BLOCK DATA STMT 
BEGIN 
IF DATAPRT=sO THEN BEGIN 
DATAPRT«#PRTSePRTS+1% ADYUST3 
DATASTRT«CADR+1)&NSEGrTOSEGNO) END 
ELSE FIXBCDATALINK)3 
EMITOPDCLITCDATAPRT)3 EMITOCLNG)3 
EMITBC*1s TRUE)? DATAB « LAX3 
END} 
Go TO DAAT3 


ENDS 


EXECUTABLES 
EMITOCMKS)3 
1F N = & THEN 
BEGIN 
INLINEFILE 3 
BeGIN EMITLCO)S EMITLOO)$ EMITLCOD3 EMITLCO)? 
EMITLCS)$ EMITLCO)s EMITLCO)3 
EMITVCNEEDC™sFBINB™, INTRFUNID) 93 
ENDS 
GO TO X{T3 
FNns . 
FDITCODE « NX1 « NX2 « OF 
1F RDTRYN ¢ 
N = 0 THEN IF NEXT = LPAREN THEN GO TO SUCH 
ELSE EMITDESCLITCFILECHECKe",5 %,2+47xREAL, 


ELSE IF N = 4 THEN IF NEXT # {PAREN THEN FLAGC33) 
ELSE GO To SUCH 
ELSE IF N = 2 THEN 


EMITDESCLITCFILECHECK(",6 "e241 7xREAL 


ELSE EMITDESCLITCFILECHECKC™ePUNCH'?0) D5 


IF RDTRtN THEN EMITLOCO) ELSE EMITPAIRC(1L*SSN)3 
GO TO FORMER3 
SUCHS SCANS RANDOMTOG*SUCHTOG*TRUES INLINEFILE 3 
_ RANDOMTOGeFREEREAD*FALSE 3 
Ip NEXT = EQUAL THEN % RANDOM KEY 
BratN Scan3 
IF EXPRCTRUE) > RPALTYPFE THEN FLAG(102)3 
IF RDTRIN THEN EMTTPAIR¢1,ADD)3 


END ELSE IF RDTRIN THEN EMITL¢O) ELSE EMyYTPAIR¢1.SSN)3 


Ip NEXT = RPAREN THEN GO TO NFS 


%503< 


CREMOTETOG))) 


4503 


4503" 
CREMOTETOG))) 


140 18 


04809000 
04810000 


04811000 
04812000 


T 
T 


T 
T 


34 LONG, 


04812010 
04812020 
04812050 
04813000 
04814000 
04815000 
04816000 
04816100 
04816110 
04816120 
04816130 
04816135 
04816136 
04816137 
04816140 
04816150 
04816160 
04817000 
04818000 
04819000 
04820000 
04825100 
04825200 
04826000 
04832000 
04833000 
04834000 
04835000 
04836000 
04837000 
04838000 
04839000 
04840000 
048441000 
04841100 
04842000 
04843000 
04844000 
04845000 
04845100 
04846000 
04847000 
04848000 
04849000 
04850000 
04850100 
04852000 
04853000 
04854000 
04855000 
04856000 
04857000 


AAA ARH HAHAHAHAHA UU AR HHA A HHA TA AH HH et A tt i 


0028 
0028 


0030 
0031 
NEXT SEG 
0000 
0002 
0003 
0007 
0012 
0012 
0015 
0017 
0017 
0018 
0019 
0020 
0022 
0024 
0026 
0027 
0029 
0029 
0030 
0030 
0030 
0031 
0032 
0032 
0033 
0036 
0038 
0039 
0039 
0042 
0042 
0043 
0043 
0046 
0048 
0049 
0054 
0055 
0056 
0058 
0059 
0059 
0063 
0068 
0068 
0072 
0074 
0075 
0076 
0078 
0080 
0084 


139 


OQ 


© 


(> 


O 


are # COMMA THEN BEGIN FLOG(114)% GO TO XIT END3 
CAN3 
If NEXT = ID THEN 
IF NAME = "ERR " OR NAME = "END THEN 
BEGIN ACTIONLABELSCFALSE)3 
NFs JF RDTRIN THEN EMITLCO) ELSE EMITPAIRC1»SSN)3 
EMITL(0)3 
NOFORMT « TRUF3 
SCAN GO To NOFORMS 
END3 


FORMER! IF ADR 2 4085 THEN 


END ELSF IF RDTRIN THEN IFCFREEREAD $= NEXT=SLASH) THEN GO TO LISTER 


BEGIN ADR « ADR+13 SEGOVF END; 
IF NEXT = NUM THEN % FORMAT NUMBER 
BEGIN EDITCODE « 13 
IF TEST « LBLSHFT¢NAME) < 0 THEN 
BEGIN FLAG(135)3 gO TO LISTER ENDS 
IF 1 «© SEARCHCTEST) = O THEN &% NEVER SEEN 
OFLOWHANGERSCIe©ENTERCORFORMATINETOCLASS]» TEST)) ELSE 
IF GET¢r),CLASS # FORMATID THEN 
BEGIN FLAG(143)% gO TO LISTER END: 
IF XREF THEN ENTERX¢TESTs*O&FORMATIDETOCLASS])3 
IF GET¢!)?,ADDR = O THEN 
BEGIN EMtTLINKecINFC « GETC1 + 2)),BASE)3 
PUTCI + 2» INFC&ADRE TOBASE 7)3 
EMITL¢O) EMITLCO)S EMITOCNOP)3 
END ELSE 
BEGIN EMITLCGETCI 


+ 2),BASE)3 
EMITPATR(GETCY) 


END} 
GO TO LISTER: ‘ 


ELSE BEGIN. IF NEXT NEQ ID THEN BEGIN FLOGC116)3GO TO XITS ENDSEND 


ELSE 


IF NEXT NEQ ID THEN 


BEGIN IF NEXT = STAR THEN 


END: 


BEGIN NAMEDESC t= TRUE GLORALNAME := TRUE$ 
TV te ENTERCORLISTSIDFTOCLASSIJsLISTIDIsLISTID+1)3 
SCAN3 

ENDS 

IF NEXT = LPAREN THEN 

BEGIN SCAN3 IF EXPRCTRUF) GTR REALTYPE THEN FLAGC120) 3 
SCANS END ELSE FMITLCO}3 


TF GLOBALNAME AND ¢FRFEREAD $= NEXT = SLASH) OR FREEREAD THEN 


GO TO LISTER ELSF BEGIN FLOGC110)3 GO TO XIT? END? 


GFTALLEI + FNEXTsINFAs INFReINEC)3 
te T « JNFA,CLASS = ARRAY1D THEN & FORMAT ARRAY 
BFGIN EDITCODE « 4 
FORMARY « TRUE 
T « EXPRCOFALSE)3 
ADR «+ ADReyt 6 ELIMINATE XCH EMITTED BY EXpPR 
IF EXPRESULT # ARRAYID THEN FLOG(116)3 
GO To LISTER13 % SCAN ALREADY DONE IN EXPR 
END ELSE 
If T = NAMELIST THEN 
REGIN NAMETOG $= TRUES 
IF INFA,ADDR = 0 THEN %’ REFERENCED» NOT DEF 
BEGIN EMITLINKCINEC,BASE)? 


04858000 
04859000 
04860000 
04861000 
04862000 
04863000 
04863100 
04863500 
04864000 
04865000 
04866000 
04866100 
04866200 
04867000 
04868000 
04869000 
04870000 
04871000 
04871100 
04871200 
04873000 
04874000 
04875000 
04876000 
04877000 
04878000 
04879000 
04880000 
04881000 
04882000 
04883000 
04883100 
04883150 
04883200 
04883300 
04863350 
04883400 
04883450 
04883500 
04883550 
04883600 
04883650 
04883700 
04883750 
04884000 
04885000 
04886000 
04886050 
04886100 
04887000 
04887100 
04888000 
04889000 
04890000 
04890100 
04891000 
04892000 
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0085 
0087 
0088 
0089 
0091 
0092 
0098 
0098 
0099 
0100 
0100 
0104 
0104 
0404 
0106 
0108 
0112 
0113 
0117 
0149 
0121 
0124 
0125 
0429 
0131 
0133 
0133 
0136 
0138 
0138 
0139 
0141 
0144 
0146 
0147 
0151 
0154 
0155 
0155 
0156 
0159 
0161 
0164 
0166 
0166 
0168 
0169 
0171 
0171 
0173 
0174 
0176 
0176 
0176 
0178 
0179 
0180 


(Oe: AP. Os a: 6 Oe SO Ce “O ‘© 


a 
Mange 


e 


Oo © 


C3 


BEGIN EMITLCINFC)»BASE)S 
EMITPAIRCINFA.ADDRe LON) 
END 
eNp 
FLSF IF T = UNKNOWN THEN % ASSUME NAMELIST 
BrGtNn PUTCIs¢INFA © INFASNAMELISTETOCLASSI))3 
NAMETOG t= TRUES 
OFLOWHANGERSCI)3 
EMITLINK¢O)s PUT¢eyT + 2,INFC&ADRETOBASE))3 
EMITL¢COS EMITLCO2% EMITOCNOP)S 
a ELSE BEGIN XTA « INFB$ FLOG(116)% Go TO XIT END3 
CAN? 
IF NEXT = COMMA THEN ACTIONLABELSCTRUE)3 
If SUCHTOG THEN 
IF NEXT # RPAREN THEN FLOGC108) ELSE SCAN3 
IF NEXT # SEmMI THEN BEGIN FLOGC118)3 GO TO XIT END3 
EmMIT,co)3 EDITCODE « 43 EmMIToOPDCLIT(7)3 EMITOCFTC)3 
Go TO WRAPS 
LISTER? SCAN3 
IF FREEREAD THEN JF NOT RDTRIN THEN 
REGIN IF NEXT # SLASH THEN EMITOCSSN) ELSE SCAN3 
IF NEXT = LPAREN THEN 


BFGIN SCANS IF EXPRCTRUE) > REALTYPE THEN FLAGC120)3SCAN 


END ELSE EMrTL¢0)3 
ENDS 
LISTER: 
tf SUCHTOG THEN 
BEGIN IF NEXT = COMMA THEN ACTIONLABELSCTRUE)3 


tf NFXT = RPAREN THEN SCAN ELSE BEGIN FLOG(108)3 GO TO X{IT ENN3 


END ELSE IF NEXT=COMMA THEN SCAN ELSE IF RDTRIN THEN 
1F NEXT#SEMy THEN FLOG(114)3 
NOFORMS TF NEXTsSEM] THEN 


BEGIN IF FREEREAD THEN FLOGC061) ELSE EmMrTLc023 GO TO WRAP END: 
IF (NEXT NEQ@ LPAREN) AND CNEXT NEQ@ ID) AND CNEXT NEQ STAR) THEN 


Go To XIT3 
ENITCODE « EDITCODE + 23 
DAAT!? EmITBCwie FALSE)? LADRI * LAX3' ADJUST3 DESCREQ « TRUE; 
IF ADR 2 4085 THEN 

BFGIN ADR « ADR+13 SEGOVF$ ADJUST END; 
ACCIDENT «© PRGDESCBLORCO*0r#ADRe (36210) + L»NSEG)3 
EMITOPDCLITC1993 EMITOCGFW)$ 
LISTART «+ ADR&NSEGCTOSEGNOI]; ADJUST? 
LA « O8 IOLISTCLAD? 
FMITLC1)3 EMITOCCHS)$ EMITLC19)3 FMITOCSTD); 
EMITDESCLITC1993 EMITOCRTS)3 
FrxXBCLADR1)3 DESCREQ@ « FALSF3 
Ip NATATOG THEN 
BeGIN DATASET? 

IF NEXT = SLASH THEN SCAN ELSE 

BEGIN FL0G¢C110)3 GO TO xIT ENDS 

Ip LSTA=0 THEN BEGIN BUMPPRT$ LSTAePRTS END3 

1F CLSTMAX = LSTI) < LSTS THEN 

REGIN WRITEDATACLSTreNXAVIL © NXAVIL + te LSTPI3 

LSTA « PRGDFSCBLDRC1sLSTAsOeNXAVILD 


04893000 
04894000 
04895000 
04896000 
04897000 
04898000 
04898100 
04899000 
04900000 
04900100 
04901000 
04902000 
04903000 
04904000 
04905000 
04906000 
04907000 
04908000 
04909000 
04910000 
04911000 
04912000 
04912100 
04912200 
04912300 
04912400 
04912500 
04912600 
04942700 
04913000 
04914000 
04915000 
04916000 
04916100 
04917000 
049147100 
04918000 
04918100 
049149000 
04920000 
04920100 
04920200 
04921000 
04922000 
04923000 
04924000 
04925000 
04926000 
04927000 
04928000 
04929000 
04930000 
04931000 
04932000 
04933000 
04934000 
04935000 
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0182 
0184 
0187 
0187 
0188 
0190 
0190 
0190 
0191 
0194 
0195 
0196 
0198 
0201 
0203 
0204 
0206 
0206 
0209 
0212 
0215 
0215 
0216 
0217 
0221 
0222 
0225 
0227 
0227 
0228 
0228 
0230 
0234 
0237 
0239 
0240 
0244 
0247 
0248 
0249 
0253 
0254 
0256 
0259 
0261 
0263 
0265 
0268 
0269 
0271 
02714 
0272 
0274 
0277 
0283 
0284 
0287 


LSTr « OF BUMPPRT$ LSTA«PRTS3 


ENDS 


END3 
MOVEWCLSTTsLSTPELSTy]ecLSTS « LSTS + 1),.036%6]9LSTS)3 
EMITOCMKS)5 EMITLCLSTII3 EMITPAIRCLSTAsLOD)3 
LSTI « LSTI + LSTS3 
EMITPAIRCACCIDENTsLODI$ EMITOPDCLITC7)% EMITOCFTIF)3 
EMITLC6)% EMITLCO)$ EMITLCODS 
EMITVCNEEDC™sFBINB", INTRFUNID) 3 
IF NEXT = COMMA THEN 
BEGIN SCAN$ GO TO DAAT END$ 
IF SPLINK 2 O THEN BEGIN 
EMITBC*1sFALSEDS DATALINK*#LAX3 
FIXBCDATAB) END3 
GO TO XIT3 


EMITPAIRCACCIDENTs LOD)? EMITOPDCLITC7)$ EMITOCFTF)3 
WRAPt te NOT FREERFAD AND NOT NAMETOG THEN EMITLCEDITCODE)3 
IF RDTRyN THEN 


BEGIN tr NX4 


= 0 THEN EMITLCO) ELSE EMITLABELDESC(NX1)3 


Ip NX2 = O THEN EMITL¢O) ELSE EMITLABELDESC(NX2)} 

TF FREEREAD THEN EMITVCONEF DC’ FREFR®», INTRFUNID)) 
ELSE IF NAMETOG THEN EMITVCNEEDC™,FINAM"s INTRFUNID)) 
ELSE YF FORMARY THEN EMITVENEEDC™,FTINT*s INTRFUNID) ) 
ELSE IF NOFORMT THEN EMITVCNEEDC",FBINB's INTRFUNID)) 


END ELSE 


ELSE EMITVCNEEDe™.FININ’s INTRFUNID) 3 


IF FREEREAD THEN 


BEGIN 


IF nNAMEDESC THEN 
BEGIN 


PRTSAVERCTVeNAMEIND +4 *NAMLIST)3$ 
EMITLCGETCTV4+2),BASE)$ 

EMITPAIRCGETCTV) sADDR+L0D)3 

IF NAMLIST£O] = O THEN EMITL¢CO) 

ELSE EMITPAIRCGETCGLORBALSEARCHC™, SUBAR") ).ADDRe LOD)3 
NAMLYISTLO] = NaMEFIND t= Q3 


END ELSE BEGIN EMITLECOVSEMITLCOSEMITLCODZ ENDS 
EMrTVCNEEDC*sFREWR"* INTRFUNID) ) 
ENn ELSE TF NAMETOG THEN FMITVCNEEDC™.FONAM"s INTREUNIN) ) 


XT! 


ELSE IF FORMARY THEN FMITVC(NEEDC'FTOUT", INTRFUNID) 
ELSE BEGIN 
IF NX¢=0 THEN EMITL¢O) ELSE EMI TLABELDESCCNX14)$ 
IF NX9=0 THEN EMITL¢O) ELSE EMITLABELDESCO(NX293 
IF NOFORMT THEN FMITVCNEED CY, FBINB*,INTRFUNID)) FLSE 
EMI TVeNFEDe™sFTNOU",INTRFUNID) D3 
END} 


IF nAMEDESC THEN IF RDTRIN THEN FLAGC159) 


DATATOG 


ELSE IF NoT FREEREAD THEN FLAGC160)3 
t= FALSE3} NAMEDESC t= FALSE} GLOBALNAME t= FALSE3 


IF DEBUGTOG THEN FLAGROUTINEC* fOCOM™s"MAND “,FALSE) 3 
END IOCoMMANDS 


PROCEDURE STMTFUNCLINK)$ VALUE LINK$ REAL LINKS 


STMTFUN 
BEGIN 


DEFINE PARAM = LSTT#; 


139 IS 


04936000 
04937000 
04938000 
04939000 
04940000 
04941000 
04942000 
04943000 
04944000 
04945000 
04946000 
04946500 
04946600 
04947000 
04948000 
04949000 
04950000 
04951000 
04952000 
04953000 
04954000 
04954050 
04954100 
04954150 
04954200 
04955000 
04956000 
04956005 
04956010 
04956020 
04956040 
04956100 
04956200 
04956500 
04956550 
04956600 
04956650 
04956700 
04956750 
04956800 
04956900 
04956910 
04956920 
04956925 
04956930 
04956940 
04957000 
04957050 
04957055 
04957100 
049571410 
04958000 
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414 LONG» 


04959000 


04960000 
04961000 


T 


T 
T 


0289 
0294 
0294 
0298 
0300 
0302 
0304 
0306 
0308 
0309 
0312 
0313 
0315 
0316 
0316 
0316 
0319 
0321 
0321 
0325 
0328 
0330 
0334 
0338 
0342 
0346 
0346 
0348 
0348 
0349 
0350 
0352 
0354 
0356 
03586 
0362 
0363 
0368 
0369 
0373 
0377 
0380 
0383 
0386 
0388 
0399 
0392 
0393 
0395 
0399 
0405 
0407 


NEXT SEG 


0556 


0556 
0556 
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START OF SEGMENT kxxxkkeeRe [4] 
REAL SAVEBRADs I? 04962000 T 0000 
STACKCF+2) = SAVFBRAD 
STACK(F43) = } 
REAL INFA» INFCs NPARMSs TyPes PARMLINKe BEGINSUBe RETURN 04963000 T 0000 
STACK¢F44) = INFA 
STACK¢F45) = JNFC 
STACK¢F46) = NPARMS 
STACK¢F47) = TYPE 
STACK¢F410) = PARMLNK 
STACK¢ F211) = BEGINSUB 
STACK¢F412) = RETURN 
LABEL XIT,TIX 3 04964000 T 0000 
IF SPLINK < O THEN FLAGC1293 04964100 T 0000 
LABL « BLANKS$ 04964700 T 0002 
FILETOG « TRUES % PREVENTS SCANNER FROM ENTERING IDS IN INFO 04965000 T 0002 
IF XREF THEN ENTERXCGETCLINK+1) (O&STMTFUNIDETOCLASS) 04965100 T 0003 
&CGETCLINK))£21321:31)3 04965200 T 0007 
DO 04966000 T 0008 
BEGIN 04967000 T 0009 
SCANS 04968000 T 0009 
IF NEXT # ID THEN BEGIN FLOGC107)$ GO TO XIT END3 04969000 T 0009 
PARAMENPARMS«¢NPARMS#+4] «© NAME? 04970000 T 0012 
SCANS 04971000 T 0014 
END UNTIL NEXT # COMMaA3 04972000 T 00144 
1F NEXT # RPAREN THEN FLOG(108) ELSE SCANS 04973000 T 0016 
- 04974000 T 0019 
tF NEXT # EQUAL THEN BEGIN FLOG(¢104)3 GO TO XrT END? 04975000 T 0019 
EMITBE€s1s FALSE2%’ SAVEBRAD «+ LAX’ ¥% BRANCH AROUND ST FUN 04976000 T 0021 
ADJUST} 04977000 T 0023 
BFGINSUB « ADR+13 04978000 T 0024 
BUMPLOCALS3 EMITPAIR¢RETURN©LOCALS+15369STD)3 04979000 T 0025 
FOR | « NPARMS STFP #4 UNTIL 1 DO 04980000 T 0031 
BEGrN 04981000 T 0033 
tPF oT + SEARCHCPARAME1]) # 0 THEN 04982000 T 0033 
TYPE « GETCT), SUBCLASS ELSE 04983000 T 0035 
IF TePARAMEI3.£1226] ¢« "1" OR T > "NY THEN 04984000 T 0037 
TYPE « REALTYPE E,SE TYPE « INTYPE3 04985000 T 0040 
EMITSTOREC ENTERCO&RVARIDE TOCLASSI&1CL TOTYPF] 04986000 T 0043 
RTYPELTOSUBCLJ» PARAM(CII])* TYPED 04987000 T 0046 
IF XREF THEN ENTERXCNAME* O&VARIDITOCLASSI&TYPELTOSUBCLI)3 © 04987100 T 0048 
END} 04988000 T 0052 
PARMLINK « NEXTINFO"33 04989000 T 0054 
GETALLCLINK»s INFAs XTAs INFCD3 04990000 T 0055 
FILETOG « FALSES 04991000 T 0057 
SCANS 04992000 T 0057 
IF CTYPE*CINFA*GETCLINK)) «SUBCLASS =LOGTYPE OR TYPE=COMPTYPE OR 04993000 T 0058 
CI*©EXPRCTRUEJI=LOGTYPE OR I=COMPTYPE THEN 04993500 T 0061 
REGIN TF F#TYPE THEN FLAGC139)% GO TIX END 3 04993510 T 0065 
TF TYPESREALTYPE OR TYPESINTYPE THEN 04993530 T 0068 
BEGIN 04993540 T 0069 
IF J=DOUBTYPE THEN BEGIN EMITOCXCH)$ EMITOCDEL) END 3 04993550 T 0070 
IF TYPESINTYPE THEN IF J#INTYPE THEN EMITPATROQL*IDV) 3 04993560 T 0073 
GO Trx 3 04993570 T 0076 
END 3 04993580 T 0077 
IF T#DOUBTYPE THEN EMITPAIRCOeXCH) 3 04993590 T 0077 
TIX? 04993595 T 0079 


EMITOPDCLYIT¢CRETURN) 3 04994000 T 0080 eS 
EMITOCGFH)3 04995000 T 0080 YL 
FIXBCSAVEBRAD)3 04996000 T 0081 
IF INFAsCLASS # UNKNOWN THEN FLAG(140)93 04997000 T 008? = 
PUTCLINK» =INFA & 1£TOTYPF] & NSEGETOSEGNO] 04998000 T 0084 L 
& STMTFUNIDETOCLASS] & BEGINSUBL[TOADDR])3 04999000 T 0087 
04999500 T 0090 7 
PUTCLINK+2» =CO & NPARMSETONEXTRA] & ADRITOBASE] 05000000 T 0090 Ss 
& PARMLINK£36%36212]))3 . 05001000 T 0092 
PARMLINK « PARMLINK#+43 05002000 T 0094 on 
FOR I «© 1 STEP 1 UNTIL NPARMS DO 05003000 T 0095 L 
PUTCPARMLINK © PARMLINK=@3* ".yy550%33 05004000 T 0097 
XIT3 05005000 T 0104 a 
FILETOG « FALSES 05006000 T 0102 
END STMTFUN3 05007000 T 0102 
141 1S 108 LONGs NEXT SEG 6 2 
PROCEDURE ASSIGNMENTS? 05008000 T 0556 L 
PRT(756) = ASSIGNMENT 
BEGIN 05009000 T 0556 
LABEL XIT3 05010000 T 0556 CG 
START OF SEGMENT #eee RRR KHER = 142 
BOOLEAN cHek$ 05010500 T 0000 Ps 
STACKCF42) = CHCK C 
; BOOLEAN 73 05010600 T 0000 
STACKeF43) = 1 
1F DEBUGTOG THEN FLAGROUTINEC# ASSIG™s"*NMENT ",TRUE ) 3 05011000 T 0000 c 
FX4 « FNEXTS ' 05012000 T 0002 
SCAN3 05013000 T 0002 
IF NEXT = LPAREN THEN 05014000 T 0003 S 
BEGIN 05015000 T 0004 
CHCK#TRUES 05015500 T 0004 2 
IF GETCFX1),.CLASS = UNKNOWN THEN 05016000 T 0005 e 
IF EODS THEN 05017000 T 0007 
BEGIN XTA « GETCFX14+193 FLOGCO35) 3 05017010 T 0007 
PUTCFX1*eGETCFX1) & ARRAYIDETOCLASSI) 3. - 05017020 T 0010 S 
PUTCFX14+2eGETCFX14¢2) & {CL TONEXTRAI) 3 05017030 T 0013 
END 05017040 T 0016 nm 
FLSE BEGIN STMTFUNCFX1)3 GO TO XIT END ? 05017050 T 0016 ‘. 
IF XREF THEN ENTERXCGETCFX141) °1&8GETCFX1) £152145299)3 05017055 T 0021 
FONDS « TRUE 3 05017060 T 0025 _ 
EXECUTABLES 05017100 T 0026 C 
SCANS 05018000 T 0026 
1 « SUBSCRIPTSC(FX1.2)3 05019000 T 0027 7 
SCAN$ 05020000 T 0028 (. 
END ELSE 05021000 T 0029 
BEGIN 05022000 T 0029 
EODS«TRUE 3 05022040 T 0029 ‘S 
EXECUTABLES : 05022100 T 0030 
tf T « GETCFX1)eCLASS = ARRAYID THEN 05073000 T 0031 a 
BEGIN XTA « GETCFX44+4)3 FLAGC74) ENDS 05024000 T 0033 Y 
MOVEWCACCUME1 J *HOLDIDL01+023)3 05025000 T 0036 
IF XREF THEN IF HoLDIDL0].£12:12] # "D0" THEN 05025100 T 0038 a 
ENTERXCGETCFX141) 0 18GETCFX1 90212213 378VARIDETOCLASS])$ 05025200 T 0040 he 
END: 05026000 T 0045 
IF NEXT # EQUAL THEN BEGIN FLAGC104)3 GO TO XIT END3 05027000 T 0045 
SCANS | 05028000 T 0049 Cc 
IF NEXT=SEMI OR NEXTSCOMMA THEN BEGIN FLOGCO)3 GO TO XIT$ END? 05028010 T 0049 
Ss 


FX2 ¢ EXPRCTRUE)D3 05029000 T 0053 

1F NEXT NEQ@ COMMA THEN IF HOLDIDLO) = "DO" THEN IF XREF THEN 05029200 T 0054 

ENTERXCHOLDIDEO] e1&GETCFXI)C 21321: 3]8VARIOFTOCLASS))} 05029400 T 0057 

IF NEXT = COMMA THEN IF CHeK THEN FLOGC56) ELSE 05030000 T 0064 

1F HOLDIDF‘O1,£12%42] # "DO" THEN FLOG(56) ELSE 05030100 T 0064 

BEGrN 05031000 T 0068 

IF LOGIFTOG THEN FLAGC101)3 05032000 T 0071 

IF FX2 > REALTYPE THEN FLAGC(102)3 05033000 T 0073 

TF OT © DT+#1 > MAXDOS THEN BEGIN OT « 413 FLAGC138) ENDS 05034000 T 0075 

EMITNCFX1e CHECKDO)3 05035000 T 0078 

EMyTOCSTDDS 05036000 T 0080 

SCANS 05037000 T 0081 

IF NEXT=SEM] THEN BEGIN FLAGC36)3 GO TO XIT END} 05038000 T 0081 

IF cACCUMCO) = ", * oR ACCUMFO) = "3 ") AND 05038900 T 0084 

GLOBALNEXT=NUM AND ABSCFNEXT) > 1023 THEN 05039000 T 0086 

BEGIN 05040000 T 0088 

IF EXPRCTRUE) > REALTYPE THEN FLAG(102)3 05041000 T 0089 

IDINFOS=REALTDSFNEXTISENTERCIDINGOs"OFNVOO"RDTE 36% 36212793 05041100 T 0091 

EMITNCFNEXTS =GETSPACECFNEXT))3 EMITOCSTD)$ 05041200 T 0094 

EMITBC*1eFALSE)$; LADRitsLAXs ADJUST? 05041300 T 0097 

LADR2 « CADR+1) & NSEGETOSEGNOIJ$ EMITVCFNEXT)$3 05041400 T 0099 

END 05041450 T 0102 

ELSE BEGIN 05041500 T 0102 

EMITBC*1eFALSE)3 LADRYtSLAX$3 ADJUSTS 05041600 T 0107 

LADR2:=CADR+{ aNSEGLTOSEGNO]} 05041700 T 0109 

IF EXPRCTRUE) > REALTYPE THEN FLAGC102) 3 05041800 T 0111 

END 3 05042000 T 0114 

EMLTOCGRTR)}3 05043000 T 0114 

EMITB¢*1s TRUE)? 05044000 T 0115 

LADR3 « LAX$ 05045000 T 0116 

EMITBC™1s FALSE)3 05046000 T 0117 

ANJUST; 05047000 T 0118 

NOTESTFDT] « CADR+1) & LAXFTOADDRI & NSFGFTOSFGNO]3 05048000 T 0118 

IF NEXT # COMMA THEN EmITLe1) ELSE 05049000 T 0122 

BEGIN 05050000 T 0124 
SCAN3 05051000 T 0425 

IF NEXT=SEMI THEN BEGIN FLAG(36)3 GO TO XIT END 3 05051100 T 0125 

IF EXPRCTRUE) > REALTYPE THEN FLAG(102)3 05052000 T 0128 

END; 05053000 T 0130 

EMITVCFX4)3 05054000 T 0130 

EMITOCADD)3 05055000 T 0131 

EMITNCFX4)3 05056000 T 01432 

EMITOCSTND 05057000 T 0132 

EMITBCLADR2» FALSE)3 05058000 T 0133 

FIXBCLADR)3 05059000 T 0134 

FIXBCLADR3)3 05060000 T 0135 

END ELSE EMITSTORECFXis FX293 05061000 T 0136 

XT: 05062000 T 0137 

TF DEBUGTOG THEN FLAGROUTINEC™ ASSIG™s"NMENT ",FALSE)D 3 05062010 T 0138 

ENp ASS?+GNMENT? 05963000 T 0140 

142 1S 145 LONGs NEXT SEG 6 

BOOLEAN PROCEDURE RINGCHECK3 05063100 T 0556 

COMMENT THIS PROCEDURE PREVENTS THE POSSIBILITY OF DELINKING A 05063110 T 0556 

HEADER FROM THE HEADER RrNG3 05063120 T 0556 

BEGIN 05063200 T 0556 

INTEGER 13 05063250 T 0556 


C) 


O © 


O 


(Oe © ae © ue © eee © ame © 


O 


f* 
ka 


O 


STACK ¢F 43) 


PRT¢760) = 


STACK¢F42) 
STACK ¢F 43) 
STACK(F 44) 


PRTC761) = 


STACK(F 42) 
STACK(F 43) 


uN 


[«A3 
DO 
IF f * GETCCI).ADOR = ROOT THEN RINGCHECK © TRUE 
UNTIL I = A$ 
END RINGCHECKS 


PROCEDURE SETLINKCINFADDR)3 VALUE INFADDRS INTEGER INFADDR3 


SETLINK 


= 


COMMENT 
REGIN © 
INTEGER LAST»13 REAL COML$ LABEL XIT3 


THIS PROCEDURE LINKS AN ELEMENT TO ITS PREVIOUS HEADERS 


LAST 

I 

COML 

XIT3 
LAST e¢(GETCCINFADDR) ,LASTC) #43 
FOR 1 « JNFADDR+2 STEP 1 UNTIL LAST 
DO REGIN IF GETCCT),CLASS = ENDCOM THEN TeGETCCI) LINK: 
IF FXq 5 (CCOML+GETCCOII2.~LINK THEN 


IF INFADDReComML.LASTC=A THEN COMEPWI11~¢LASTCeROOT 


ELSE Go XIT 3 
END? 
END SET INK? 


PROCEDURE NIMENSIONS 


DIMENSION 


We di 


BEGIN 
LABFL Le LOOP» ERROR $ 


BOOLEAN DOUBLEDe SINGLETOG3 
DOUBLED 
SINGLETOG | 
IF DEBURTOG THEN FLAGROUTINEC"™ pIMEN'» "STON 
tF LOGIFTOG THEN FLAGC101)3 
LABL © BLANKS} 
IF NEXT=STAR THEN IF TyPE#pOUBTYPE THEN 


",TRUE ) 3 


BEGIN 
SCAN } 
TF NEXTSNUM AND NUMTYPESINTYPE THEN 
BEGIN 
IF FNEXT#4 THEN 
BEGIN 
SINGLETOG « TRUE3 
f TYPESCOMPTYPE THEN FLAG(176)3 GOL, 3 
ND 3 
IF FNEXT=8 THEN 
BEGIN 
IF TYpE=REALTYPE THEN TYPE*DOQURTYPE 
ELSE IF TYPE#COMPTYPE THEN FLAGC177) 3 
GOL 3 
END 3 
END 3 


FLAGCIF TYPESREALTYPE THEN 178 
ELSE 177"REFALCTYPE=COMPTYPE)) 3 


4109" 


Z109= 


START OF SEGMENT * 


143 1S 


05063300 
05063350 
05063400 
05063450 
05063500 

9 LONGe 
05063600 T 


Anaad 


05063601 T 
05063610 T 
05063620 T 

* 


START OF SEGMENT 


144 IS 


05063625 
05063630 
05063640 
05063650 
05063660 
05063670 
05063680 


05063730 
23 LONG 
05064000 


05065000 
05066000 


START OF SEGMENT 


T 
T 
T 
T 
T 
T 
T 
05063710 T 
T 
, 
T 
T 
T 
x 
P 


05066005 


05066010 
05067000 
05067100 
05067210 
05067220 
05067230 
05067240 
05067250 
05067260 
05067270 
05067275 
05067280 
05067290 
05067300 
05067310 
05067320 
05067330 
05067340 
05067350 
05067360 
05067370 
05067380 


MAH HAHAH HANNAH OH AHH 


A ORR Ok 


0000 
0000 
0001 
0004 
0005 
NEXT SEG 
0556 


0556 

0556 

0556 
Pr eLe LST 


0000 
0000 
0002 
0005 
0010 
0012 
0018 
0019 
0020 
NEXT SEG 
0556 


0556 
0556 
Tere r rs Ss: 


0000 


0000 
0002 
0004 
0004 
0006 
0007 
0007 
0009 
0010 
0040 
00141 
0042 
0017 
0017 
0017 
0018 
0019 
0022 
0023 
0023 
0023 
0024 


143 


6 


144 


6 


145 


cy 


C3 


O° Oe. 3G) 


Cn 


O 


16) 


/ 


L& 


SCRA RERUCNE RS CeO Sayer BLE EEE NGS SCN#1% SCAN 3 


LOOP: DOUBLED*FALSE} 


IF NEXT # 1D THEN BFGYN FLOGC105)3; GO TO ERROR ENDS 
FX1 ¢« IF SINGLETOG THEN *FNEXT ELSE FNEXT# %109= 
IF TYPE 2 DOUBTYPE THEN % FIX ARRAY TYPE OFR 
PUTCFX1enETCFX1I&TYPEFTOSUBCLI23 % BOUNDS ROUTINE 
tF XREF THEN BEGIN INFA © O&GETCFX19615%1599]3 

ve If TYPE>0 THEN ItNFA,SUBCLASS«TYPE3 

ND3 
XTA «¢ INFB « NAMES 
SCAN} 
1F XREF THEN 
BEGIN IF INFAeCLASS = UNKNOWN THEN 

INFAsCLASS©IF NEXT=LPAREN THEN ARRAYID ELSE VARID3 
ENTERXCINFBs INFA)3 

ENDS 
IF NEXT=LPAREN THEN BEGIN SCAN# DOUBLED*BOUNDSCFX1) END ELSE 
1F TYPE = #1 THEN FLOG(103)3 
GETALLCFX1» INFA» XTA» INFC)$ 
IF TYPE > O THEN 
IF BOOLEANCINFAsTYPEFIXED) THEN FLAGC31) ELSE 


BEGrN 
IF TYPE > LOGTYPE THEN 
IF GETCFX1+2) <0 THEN 
BEGIN 
1F NOT DOUBLED AND INFA,CLASS=1 THEN 
REGIN 
BUMPLOCALS# 
LENGTH*LOCALS + 15363 
PUTCFX14+2eINFC & LENGTHETOSIZE))3 
END 
END ELSE tF NOT DOUB,ED THEN 
BEGIN IF INFC,SyYZE > 16383 THEN FLAGCI9)$ 
paar reas ee (2 x INFC.SIZECTOSIZE))3 
NDE 
PUT CFXY*e+INFA & 1CTOTYPFI & TYPECTOSUBCLI)3 
END; 
IF INFA < 0 THEN FLAGC39) ELSE 
IF TYPE = #2 THEN 
BEG 


BEG! 


BEG? 


END 
END 


END 3 


TN 
BAPCCINFARFXICTOLINKIRICTOCEJRROOTETOLASTCI)$ 


IF BOOLEANCINFAeCE) THEN FLAGC2)3 

IF BOOLFANCINFAsEQ) THEN 
N 

COMCNEXTCOM,IR»sNEXTCOM,ICJ,LASTC © A © INFA,ADDR3 
BeGETCCROOTI,ANDR 3 


SETLINKCADS 

tf NOT RINGCHECK THEN 
N 

COMCPWROOTI],ADDR*GETCCA),ADDR 3 
PUTCCA»GETCCAI&BLTOADDRI&7rTOSUBCL]) 3 
ELSE ; 
PUTCFX1» TNFA & 1rTOCEy & ROOTECTOADDR})3 
IF BOOLEANCINFAeFORMAL) THEN FLAG(10)3 


05067390 
05067420 
05068000 
05068100 
05069000 
05069100 
05069200 
05069300 
05069400 
05069500 
05070000 
05071000 
05071100 
05071200 
05071300 
05071400 
05071500 
05072000 
05073000 
05074000 
05075000 
05076000 
05077000 
05078000 
05078200 
05078400 
05078500 
05078800 
05079000 
05079200 
05079400 
05079600 
05079800 
05079900 
05080000 
05080100 
05080500 
05081000 
05082000 
05083000 
05084000 
05085000 
05086000 
05086100 
05087000 
05088000 
05089000 
05089050 
05089100 
05089200 
05090000 
05091000 
05091100 
05092000 
05093000 
05094000 
05095000 


AMSA AHA HHA A Ht A A I A A Ht At ts A I 4 


0027 
0031 
0031 
00314 
0036 
0038 
0039 
0042 
0045 
0048 
0048 
0049 
0050 
0050 
0052 
0056 
0057 
0057 
0060 
0063 
0064 
0065 
0067 
0068 
0069 
0071 
0071 
0073 
0074 
0078 
0079 
00814 
0081 
0083 
0086 
0089 
0089 
0092 
0092 
0094 
0097 
0097 
0101 
0103 
0104 
0104 
0109 
O141 
0112 
0113 
0113 
0118 
0122 
0122 
0122 
0425 
0127 


CO) 


C% 


O 


PRT(762) 


IF DEBUGTOG THEN FLAGROUTINEC" DIMEN,» YSION 


IF ERRORTOG THEN 


ERROR¢ 


WHILE NEXT # COMMA AND NEXT # SEMI AND NEXT # SLASH DO SCANS3 
IF NEXT = COMMA THEN BEGIN SCANé Go TO LOOP END} 
",FALSE) 3 


END DIMFNSTONS 


PROCEDURE FORMALPPCPARMSREQs CLASS)$ VALUE PARMSREQ» CLASS} 


FORMALPP 


BEG! 


IF DEBUGTOG THEN FLAGROUTINEC" 


IF DEBUGTOG THEN FLAGROUTINEC" 


N 


BOOLEAN PARMSRE@s REAL CLASS} 


LABFL LOOP» XIT3 


BEGIN 
LOOPS 


END$ 
MrT: 


FORM"s"ALPP ",TRUE ) $ 
PARMS « Q3 
SCAN3 
IF NEXT # 1M THEN BEGIN FLOGC105)$ GO TO XIT ENDS 
IF CLASS = FUN;D THEN 
1F FUNVAR = O THEN 
BEGIN 
IF TYPE > O THEN 
IF FUNVAR « GLOBALSEARCH(CNAME) # O THEN 
IF BOOLEANC(CT «+ GETCFUNVAR)),TYPEFIXED) AND TyPE # T,SUBCLASS 
THEN FLAGC31)3 
PUTCFUNVAR #« FNEXTe#GETCFNEXT) & VARIDETOCLASSI))3 
END3 
FNEW «© NEFDCNNEW « NAME» CLASS)3 
ENTERXCNAME®IF CLASS = FUNID THEN 
1&8GETCFNEWIC1591529] ELSE 18GETCFNEWIC1531535I))3 
SCANS 
IF NEXT # LPAREN THEN 
IF PARMSRE@ THEN FLOG¢C106) ELSE FLSE 


SCANS 

1F NEXT = 1D THEN PARMLINKEPARMS ¢ PARMS41] «© FNEXT ELSE 

IF NEXT=STAR AND CLASS#FUNTD THEN PARMLINKEPARMS«PARMS+1 J©OFLSE 
FLOGC107)3 

JF XREF THEN ENTERXCNAME®TF NEXT = STAR THEN 0 ELSE 

ORGETCFNEXTI 51521529) )3 

SCANS 

rf NEXT = COMMA THEN GO TO LOOPS 

te NEXT # RPAREN THEN FLOG¢108)3 

SCANS 


tF NOT ERRORTOG THEN DECLAREPARMSC¢FNEW)3 


FORM™e"ALPP "“sFALSE) § 


END FORMALPP3 


PROCEDURE FNDS3 FORWARD} 


PRT(763) = ENDS 


PRT(764) 


_ 


PROCEDURE FUNCTION 3 


FUNCTION 


BEGIN 


REAL AsBeCel$ LABEL FOUND 3 


145 1S 


05096000 
05096100 
05097000 
05098000 
05098010 
05099000 


AAA +HaS 


142 LONG» 


05100000 


05101000 
05102000 
05103000 


START OF SEGMENT 


146 


1s 


05103010 
05104000 
05105000 
05406000 
05106100 
05407000 
05107090 
05107030 
05407040 
05107050 
05107060 
05107100 
05107160 
05108000 
05108100 
05108200 
05109000 
05110000 
05111000 
05112000 
05113000 
05114000 
05115000 
05416000 
05117000 
05417100 
05417150 
05118000 
05119000 
05120000 
05121000 
05122000 
05123000 
05124000 
05124010 
05125000 


T 


T 
T 
T 
* 
T 
T 
T 
T 
T 
T 
| 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
a 
T 
T 
T 
T 
T 
i 
T 
T 
T 
T 
T 
T 
T 


61 LONG» 


05425100 
05126000 


05127000 
05127100 


START OF SEGMENT 


T 
T 


T 
T 


0127 
0128 
0129 
0133 
0135 
0137 
NEXT SEG 
0556 


0556 


0556 
0556 


kok Kd dOK 


0000 
0002 
0002 
0003 
0008 
0008 
0010 
0010 
0011 
0013 
0016 
0018 
0021 
0021 
0023 
0024 
0029 
0030 
0030 
0033 
0033 
0034 
0034 
0038 
0042 
0044 
0047 
0049 
0050 
0054 
0053 
0053 
0053 
0055 
0056 
0058 
NEXT SEG 
0556 


0556 


0556 
0556 


OR RR ORK 


6 


146 


6 


147 


ete 


STACK (CF 42 
STACK CF 43 
STACK(F 44 
STACKCF45 


PRT(765) 
PRT¢766) 


PRTC¢767) 


PRT¢770) 


I NP ID 


= 


- 


a A 
= B 
= 
= J 
TF SPLINK NEQ@ O THEN BEGIN FLAGCS)$ ENDSS SEGMENTSTARTS END3 
LABL «© BLANKS; 
FORMALPPCTRUE® FUNID)3 
GETALLOFNEWse INFAs INFBs INFC)3 
BeNUMINTM4 3 
WHILE AtieB DO 
BEGIN 
IF CeENTLI*©REALCBOOLEANCA+B) AND BOOLEANC1022))]=INFB 
THEN GO FOUND 3 
IF INFB<C THEN Bete l36%11] ELSE Ael,f36311] 3 
END 3 
IF INFBEINTECI«CA+B)x2"7] THEN GO FOUND 3 
IF FALSE THEN 
FOUND? IF BOOLEANCINTEI+47,INTSEEN) THEN BEGIN XTACINFB3 FLAGCI67)END3 
IF TYPE<O THEN TYPEe«INFAsSUBCLASS&1(2:a731] § 
PUTCSPLINK «© FNEWe INFA & 4ETOTYPF) & TYPELTOSUBCL])3 
PUTCFUNVAR® GETCFUNVAR) & VARIOETOCLASS] & IfTOTYPF] & 
. TYPErTOSUBCLI)3 
END FUNCTIONS 
PROCEDURE STATEMENTS FORWARD? 
STATEMENT 
PROCEDURE ASSIGN? © 
ASSIGN 
BEGIN 
LABEL XIT3 
FODSe+TRUE 3 
FXECUTABLE 
SCAN} 
IF NEXT # NUM THEN BEGIN F.1,0G¢109)3 GO TO XIT END3 
IF XREF THEN ENTERXCFNEXTsO&LABELIDETOCLASS])3 
EMITNUMCFNEXT)3 
SCAN} 
IF NEXT # JD THEN BEGIN FLOGC105)3 GO TO XIT END; 
IF XREF THEN ENTERXCXTA®L&GETCFNEXTI£1521529) 93 
EMITNCFNEXT)3 
EMITOCSTD)3 
SCAN} 
XIT3 
END ASS1GN3 
PROCEDURE BLOCKDATA3 
BLOCKDATA 
BEGIN . 
tF SPLINK NEQ@ O THEN BEGIN FLAG(5)3 ENDS$ SEGMENTSTART? END? 
LABL « BLANKS3 
SCAN3 
— SPLINK « =43 
FND BLOCKDATA$ 
PROCEDURE CALL$ 
CALL 


BEGIN 


147 18 


051428000 
05128100 
05129000 
05130000 
05130100 
05430110 
05130115 
05130120 
05130125 
05430130 
05130135 
05130140 
05130445 
05130150 
05431000 
05432000 
05133000 
05134000 
05435000 

40 LONGs 
05136000 T 


AA HA AHA HH HATH 


05137000 T 


05138000 
05438100 


START OF SFGMENT 


148 18 


T 
T 
* 

05438110 T 

05139000 T 

05440000 T 

05141000 T 

05141500 T 

05142000 T 

05143000 T 

05144000 T 

05144100 T 

05145000 T 

05146000 T 

05147000 T 

05447100 T 

05148000 T 

17 LONG» 

05149000 T 


05150000 
05151000 
05151100 
05452000 
05153000 
05154000 
05455000 


AtH4A HO 


—_ 


05456000 


0000 
0003 
0003 
0004 
0006 
0007 
0008 
0008 
0011 
0012 
0016 
0017 
0020 
0020 
0025 
0029 
0032 
0035 
0037 
NEXT SEG 
0556 


0556 


0556 
0556 


A IO Gk 


0000 
0000 
0004 
0001 
0004 
0007 
0007 
0008 
0010 
0014 
0044 
0015 
0016 
0016 
NEXT SEG 
0556 


0556 
0556 
0560 
0560 
0561 
0562 
0562 


0562 


6 


148 


6 


pores 


& 


C) 


a 


() 


O 


6 a Oma © ee © ee ee 


Ch 


() 


EODS«TRUE 3 05156010 T 0562 

FXECUTABLE3 05157000 T 0563 

SCANS 05458000 T 0564 

SUBREF3 05159000 T 0564 

END CALL} 05160000 T 0565 

PROCEDURE COMMONS 05161000 T 0565 

COMMENT THIS PROCEDURE MAKES THE COM ENTRY FOR COMMON ITEMS AND SETS 05161100 T 0565 

THE CE BIT IN BOTH THE COM AND INFO TABLES AND LINKS 051461110 T 0565 

THE HEADS OF CHAINS? 05161120 T 0565 

BEGIN 05162000 T 0565 

LABEL LOOP. BLOCK; 05163000 T 0565 

START OF SEGMENT kok ROK kk 

TYPE « "23 05164000 T 0000 

SCANS 05165000 T 0001 

IF NEXT = ID THEN 05166000 T 0001 

BEGIN 05167000 T 0002 

Z « NEEDC™,BLNKe"™s BLOCKID)3 051468000 T 0002 

IF XREF THEN ENTERXC"BLANK, "2 08BLOCKINE TOCLASSI)3 05168100 T 0004 

GO TO BLOCK} 05469000 T 0007 

END} 05170000 T 0010 

LOOP? 05471000 T 0010 

1F NEXT # SLASH THEN F1,0GC410)3 054172000 T 0040 

SCAN} 05473000 T 0012 

IF NEXT = SLASH THEN Z « NEEDC™.BLNK.»"s BLOCKID) ELSE 05174000 T 0012 

BEGIN 05175000 T 0015 

IF NEXT # ID THEN FL0G¢105) ELSE 05176000 T 0017 

FORCE UNIQUE NAME BY APPENDING £ TO NAME C2ND CHAR OF WORD) 05176500 T 0019 

BEGIN Z & NEEDCNAME&"1"(624236]sBLOCKID)$ 05177000 T 0019 

IF XREF THEN ENTERXCNAME* ORBLOCKIDETOCLASSI)3 05177100 T 0022 

SCAN} 05177200 T 0024 

END? 051478000 T 0025 

TF NEXT # SLASH THEN FLOGC110)3 05179000 T 0025 

END: 051480000 T 0027 

_ SCANS 05181000 T 0027 

BLOeKs 05182000 T 0027 

If CT#GETCZ4+2))¢ADINFO = O THEN 05183000 T 0028 

BEGIN 051484000 T 0030 

IF NEXTCOM*NEXTCOM+{1>SUPERMAXCOM THEN 05185000 T 0031 

BEGIN ROOT*O3 FATALC124) END 05186000 T 0033 

FLSE ROOTeNEXTCOM 3 05186100 T 0035 

PUTCCROOTS,ORHEADERECTOCLASSI&ICTOCEJRROOTLTOADDRI) 3 05186200 T 0036. 

BAPC(Z) 3 05487000 T 0040 

END FLSE 051488000 T 0041 

BEarN 05189000 T 0041 

ROOT « T,ADINFO! 05190000 T 0044 

COMECTeGETCCROOTI.LASTC) aIRaTeIC]eLINK*NEXTCOM4! § 05491000 T 0042 

IF COMCPWROOT1]<O THEN FLAGC2) 3 05491100 T 0049 

END; 05192000 T 0053 

DIMENSION; 05193000 T 0053 

BAPCCO&R8ENDCOMCTOCLASS]) 3 05194000 T 0053 

COMEPWROOTI],LASTCeNEXTCOM 3 05195000 T 0055 

PUTCT#GETCCROOT+1)+2eGETCTI&ROOTLTOADINFO]) 3 05196000 T 0059 

IF NEXT # SEMI THEN GO TO L,00P3 05197000 T 0064 

END COMMON} 05498000 T 0065 
149 1S 66 LONGs NEXT SEG 6 

PROCEDURE FNDS} 05211000 T 0565 


Os 


PRT¢772) = 


STACKCF+2) = SP 


PRT¢773) = 


STACK¢(F 42) 
STACKCF +3) 
STACKCF +4) 
STACK¢(F 45) 


STACK(F +6) 
STACK¢F +47) 


ENTRY 


unu oH 


u 


nNAwDaV 


BEGIN 


1F SPLINK=O THEN FLAGC184) ELSE 


REGIN 


FODS+FALSE $3 

IF LOGIFTOG THEN FLAGC10193 

LABL «© BLANKS3 

tPF SPLINK < O THEN EMITOCX1T) ELSE EMITPAIRCO, KOM)3 
SFGMENTCCADR+4) DIV Ge NSEGe TRUEe EDOC)3 


eNn3 


END ENDS} 


PROCEDURE ENTRY3 


BEGIN 


REAL SP3 


IF SPLINK = 0 THEN FLAGC111) ELSE 

IF SPLINK = 1 THEN BEGIN ELX ¢ 03 FLAGC4) ENDS 
LABL © BLANKS} 

ADJUST 3 

SP ¢ GETCSPLINK)3 

FORMALPPC (T*#SPeCLASS) = FUNIDs T)3 
GFTALLCFNEWe INFAs INFBs INFC)3 

TF INFA,CLASS = FUNID THEN 


PUTCFNEWe INFA & YC TOTYPFI] & ¢SP,SUBCLASS)CTOSUBCLI)5 


PUTCFNEW+2~5 FNFC & CADR+1)¢TOBASE])3 


END ENTRY 


PROCEDURE FQUIVALENCES 
EQUIVALENCE 


COMMENT 


BEGIN 


FIRST 
= PCOMM 


BEGIN 


¥1129 
eit2n 


Zi12= 


THr1S PROCEDURE MAKES THE CoM ENTRY FOR EQUIV 1;TEMS AND SETS 


THE EQ BIT IN BOTH THE Com AND INFO TABLES AND LINKS 
THE HEADS OF CHAINS3 


REAL Pe Qe Roe S3 


BOOLEAN FIRSTePCOMMS 


LABEL XIT$ 

tf LOGIFTOG THEN FLAGC101)3 
LABL ¢ BLANKS; 

no 


FIRST « FALSES 
SCAN} , 
1fF NEXT # LPAREN THEN BEGIN FLOGC106)3 GO TO XIT END; 
TF NEXTCOM#NEXTCOM4+1>SUPERMAXCOM THEN 
BEGIN ROOT«O3 FATALC124) END 
FLSE ROOTe«NEXTCOM 3 
PUTCCROOT,O&HEADERS TOCLASS y&ROOTETOADNR}) 3 
BAPC(O)3 QO 3 
DO 


05212000 
05712005 


05212007 
05712010 
05213000 
05213100 
05214000 
05215000 
05216000 
05247000 
05218000 


AAVAAAHHO OA 


05219000 T 
05220000 T 


0565 
0565 


0568 
0568 
0569 
0571 
0572 
0575 
0578 
0578 
0579 


0579 
0579 


START OF SEGMENT #4 4% ¥ Xe eu 


05221000 T 
05222000 T 
05222100 T 
05722500 T 
05223000 T 
05224000 T 
05225000 T 
05226000 T 
05227000 T 
052928000 T 
05229000 T 

22 LONG? 
05230000 T 


150 IS 


05230400 T 
05230110 T 
05230120 T 
05731000 T 
05232000 T 
START OF SEGMENT * 


05232050 T 


05232100 
05233000 
05233100 
05234000 
05235000 
05235500 
05236000 
05237000 
05238000 
05238100 
05238200 
05238300 
05239000 
05240000 


AHA AHA AAAS HHS 


0000 
0002 
0005 
0006 
0006 
0007 
0010 
0011 
0013 
0017 
0019 ; 
NEXT SEG 
0579 


0579 
0579 
0579 
0579 
0579 


reer Tres ry 


0000 


0000 
0000 
0002 
0002 
0003 
0003 
0003 
0004 
0006 
0008 
0010 
0011 
0014 
0016 


150 


6 


151 


} 


©) 


O 


C) 


BEGIN 
SCAN} 
IF NEXT # ID THEN BEGIN FLOGC(105)3 GO TO XIT ENDS 
IF XREF THEN ENTERX(NAME SORGETCFNEXTI£1591529])3 
FX{ « FNEXT3 
LENGTH « 03 
SCAN: 
IF NEXT = LPAREN THEN 
BEGIN 
IF GETCFX1),CLASS # ARRAYIN THEN 
BFGIN XTA « GETCFX14423 FLOGC112) ENDS 
R« OF Pew 13 
S « GETCFX14+2),ADINFO} 
po 
BEGIN 
SCAN} 
1F NEXT # NUM OR NUMTYPE # INTYPE THEN FLAGC11393 
LENGTH * LENGTH # PX¢FNEXT#1)3 
P » PXEXTRAINFOCCS+R),TReCStR)e1C] 3 
R « Req} 
SCAN} 
END UNTIL NEXT # COMMA3 
IF NEXT # RPAREN THEN BEGIN FLOGC108)% GO To XqT END 
IF R#=4 THEN IF ReR#+GETCFX142)¢NEXTRAZO THEN 
BEGIN XTA+GETCFXy4+4)s FLAGCIF R>O THEN 23 ELSE 24) END 3 
SCANS 
END} 
IF CINFA#GETCFX1)) < 0 THEN 
BEGIN XTA « GETCFX{4+1)3 FLAGC39) END ELSE 
BEGIN 
IF INFA,SUBCLASS > LOGTYPE THEN LENGTH « 2xLENGTH } 
BAPCCINFA&FXILTOLINKI&LENGTHE TORELADDIRILCTOEQIRROOTETOLASTCIDS 
IF CPCOMM*®BOOLEANCINFAsCE)) OR BOOLEANCINFA.E®) THEN 
BEGIN 
TF FIRST AND PCOMM THEN BEGIN XTA«GETCPX141)93 FLAGC2) END 
ELSE JF NOT FIRST THEN FIRST « PCOMM3 
PUTCFX1eINFA & 1CTOEQI33 
COMENEXTCOM,IReNEXTCOM,IC],LASTC «© A « INFA,ADDR? 
BeGETCCROOT),ADOR 3 
SETLINKCA) 3 
TF NOT RINGCHECK THEN 
BEGIN ; 
COMEPWROOTJ,ADDReGETCCA), ADDR 3 
PUTCCAsGETCCAIRBETOADDRIS7FTOSUBCL)) 3 
END 
END ELSE 
PUTCFXEeINFA & LETOEQ) & ROOTETOADDR))3 
IF LENGTH > @ THEN Q@ « LENGTHS 
IF BOOLEANCINFAsFORMAL) THEN 
_ BEGIN XTA © GETCFX244)3 FLAGCI1) END? 
END?3 
END UNTIL NEXT # COMMA3 
IF NEXT # RPAREN THEN BEGIN FLOGC108)3 GO TO XIT ENDS 
SCAN} 
PUTCCROOT4+19Q) 3 
BAPCCORENNCOMETOCLASS]) 3 
COMEPWROOT],LASTCeNEXTCOM 3 


05241000 
05242000 
05243000 
05243200 
05244000 
05245000 
05246000 
05247000 
05248000 
05249000 
05250000 
05251000 
05252000 
05253000 
05254000 
05255000 
05256000 
05257000 
05258000 
05259000 
052760000 
05261000 
05262000 
05762200 
052762300 
05263000 
05764000 
05265000 
05266000 
05267000 
05267100 
05768000 
05269000 
05270000 
05270100 
05270200 
05270500 
05271000 
05272000 
05272050 
05272100 
05272200 
05273000 
05274000 
05274200 
05975000 
05276000 
052977000 
05278000 
05279000 
05280000 
05261000 
05282000 
05283000 
05284000 
05285000 
05286000 


AAA MA AN AHA AA A A A aH tt A A A I tH A 


0017 
0017 
0017 
0020 
0023 
0024 
0024 
0025 
0026 
0026 
0028 
0031 
0032 
0035 
0035 
0035 
0035 
0038 
0040 
0045 
0046 
0046 
0048 
0050 
0055 
0060 
0060 
0060 
0062 
0065 
0066 
0069 
0073 
0076 
0076 
0080 
0082 
0084 
0089 
00914 
0092 
0093 
0093 
0098 
0102 
0102 
0102 
0105 
0107 
0108 
O1it 
O111 
0112 
0115 
0115 
0117 
0119 


Cy 


Cy 


©) 


o 


PRT¢775) = CHAIN 


STACK¢CF42) = TI 


PRT¢776) = GOTOS 


END UNTIL NEXT # COMMA3 
XyT? 


FND EQUyVALENCE? 


PROCEDURE FXTERNAL} 
PRT¢774) = EXTERNAL 


BEGIN 


tr SPLINK < O THEN FLAG 1293 
IF LOGIFTOG THEN FLAGC101)3 
LABL « BLANKS} 


SCANS 

IF NEXT # ID THEN FLOG(105) ELSE 

BEGIN T « NEEDCNAMESEXTIDD$S 
IF XREF THEN ENTERXCNAME*SO&GETCTI£C15915329))3 
SCANS 

END3 


END UNTIL NEXT # COMMAS 


END EXTERNAL? 
PROCEDURE CHAINS 


N 
LABel AGNe XIT3 
REAL Tit 


DEF rNe FLGCFLG1) = BEGIN FLOGCFLG1)I? GO TO XIT END# 
EXECUTABLE? 

SCANS 

T1 «6 23 

IF FALSE THEN 


AGN! IF GLOBALNEXT # COMMA THEN FLG(28)3 


SCAN3 

IF eXPRCTRUE) > REALTYPE THEN FLGC102)3 
IF «Ti « Ti = 4) # 0 THEN Go TO AGN? 

IF GLOBALNEXT # RPAREN THEN FLGC3)? 
EMITPAIR €37eKOM)3 

SCANS 

IF GLOBALNEXT # SEMI THEN FLOGC(117)8 


XITs WHILE GLOBALNEXT # SEMI DO SCANS 


CHAINS 


PROCEDURE GOTOS$ 


BEGIN LABEL XITs 


REAL ASSIGNEDID? 


STACK¢F42) = ASSIGNEDID 


FODS+TRUE 3 
EXECUTABLE3 
SCANS 
1F NEXT = NUM THEN 
BEGIN 
LABELBRANCHCNAMEs FALSE )s 
SCANS 


05287000 T 0123 
05287100 T 0424 
05288000 T 0125 
1514 15 129 LONGs NEXT SEG 
05289000 T 0579 
05290000 T 0579 
05291000 T 0579 
05292000 T 0584 
05792100 T 0583 
05293000 T 0583 
05294000 T 0584 
05295000 T 0584 
05296000 T 0584 
05297000 T 0586 
05297300 T 0588 
°05297500 T 0594 
05297800 T 0592 
05298000 T 0592 
05299000 T 0592 
05300000 T 0593 
05300100 T 0593 
05300150 T 0593 
05300160 T 0593 
START OF SEGMENT Rx x 
05300170 T 0000 
05300180 T 0000 
05300182 T 0000 
05300184 T 0000 
05300190 T 0004 
05300910 T 00014 
05300220 T 0002 
05300230 T 0005 
05300240 T 0006 
05300250 T 0009 
05300260 T 0011 
05300270 T 0013 
05300280 T 0014 
05300290 T 0015 
05300300 T 0017 
05300310 T 0020 
152 1S 23 LONGe NEXT SEG 
05301000 T 0593 
05302000 T 0593 
START OF SEGMENT #44 % ee Hee 
05302100 T 0000 
05302110 T 0000 
05303000 T 0000 
05304000 T 0004 
05305000 T 0004 
05306000 T 0002 
05307000 T 0003 
05308000 T 0004 


6 


152 


6 


153 


of 


© 


pai 


‘S 


Go To XIT3 
IF NEXT = ID THEN 


N 
ASSIGNEDID « FNEXT$ 
IF XREF THEN ENTERXCXTA® ORGETCFNEXTIC1521529993 
SCAN; 
IF NEXT # COMMA THEN FLOG(114)3 
SCANS 
IF NEXT # LPAREN THEN FLOG(¢106)3 
no 
BEGIN 
SCAN} 
te NEXT # NUM THEN FLOGCL109)3 
EMITVCASSrGNEDID)3 
EMITNUMCFNEXT)3 
FMYTOCNEQL)3 
LABELBRANCHCNAMEs TRUE)3 
SCAN} 
END UNTIL NEXT # COMMA3 
{fF NEXT # RPAREN THEN FLOG¢108)3. 
SCAN3 ; 
EMITPAIRC¢+ SSNJ3 % CAUSE INVALID INDEX TERMINATION 
EMITDESCLITC1O)3 
GO TO AIT) 
END? 
IF NEXT # LPAREN THEN FLOG(106)3 
P « Q3 
bo 
BEGIN 
SCAN3 
IF NEXT # NUM THEN BEGIN FLOGC(10993 GO TO XIT END: 
LSTT(P«Pei] « NAMES 
SCAN} 
END UNTIL NEXT # COMMA} 
1F NEXT # RPAREN THEN BEGIN FLOG(108)3 GO TO XIT END$ 


SCAN} 

1F NEXT # COMMA THEN BEGIN FLOGC114)3 GO TO XIT END3 
SCAN3 

1T « Peis % nONT LET EXPR WtPE OUT LSTT 


1F EXPRCTRUE) > REALTYPE THEN FLOG(102)3 
EMITPATROGUNK»s ISN)$ 

EMITPAIRG eLESS)$ 

EMITOPDCLIT¢C JUNK)3 

EMITPAIRCP*GRTR)3 

EMITOCLORDE 

FMITOPDCLITCJUUNK)3 

EMITL(3)3 

EMITOCMUL 93 


IF ADR+3xP > 4085 THEN BEGIN ADReADR#13 SEGOVF END3 
FMITOCBFC)3 
EMITPAIRC1e® SSN)3 
EMITDESCLITC10)3 
FOR } * 1 STEP { UNTrL P DO 
BEGIN 
J « ADR? LABELBRANCHELSTTE1)s FALSE)3 


05309000 
05310000 
05311000 
05312000 
05313000 
05313200 
05313300 
05313600 
05314000 
05314300 
05314600 
05315000 
05315300 
05315600 
05316000 
05316300 
05316600 
05317000 
05317300 
05317600 
05318000 
05318200 
05318400 
05318600 
05319000 
05320000 
05321000 
05322000 
05323000 
05324000 
05325000 
05326000 
05327000 
05328000 
05329000 
05330000 
05331000 
05332000 
05333000 
05334000 
05335000 
05336000 
05337000 
05338000 
05339000 
05340000 
05341000 
05342000 
05343000 
05344000 
05345000 
05346000 
05347000 
05348000 
05349000 
05349100 
05349200 


AHA FHA HAHA RATA HAHAHAHA AA AAA A HAT A HH A A tH A AA HH AH Ht Ht HHH 


0004 
0005 
0005 
0005 
0006 
0007 
0010 
0010 
0012 
0013 
0015 
0016 
0016 
0016 
0018 
0019 
0020 
0020 
0021 
0022 
0023 
0025 
0026 
0027 
0027 
0028 
0028 
0030 
0031 
0031 
0031 
0031 
0034 
0036 
0036 
0038 
0040 
0041 
0043 
0044 
0045 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0053 
0054 
0054 
0058 
0059 
0060 
0061 
0063 
0063 


ad 


QO 


PRT¢777) = 


STACK¢F 42) 
STACK ¢F +3) 
STACK¢CF 44) 


TF ADR*J = 2 THEN EMPTOCNOP)S 


ENDS 
XITs : 
1T « 03 
FND GOTOS} 
PROCEDURE 1FS3 
1S 
BEGIN REAL TYPE, LOGIFADR»s SAVELABL? 
= TYPE 
= LOGIFADR 
= SAVELABL 
Eo0S«TRUE ; 
FXECUTABLE3 
SCAN} 
IF NEXT # LPAREN THEN FL0G(106)3 
SCAN} 
IF TYPE EXPRCTRUE) = COMPTYPE THEN FLAG(C89)3 


& 
TF NEXT # RPAREN THEN FLOGC108)3 
IF TYPE = LOGTYPE THEN 
BEGIN 
FMITBCele TRUEDS 
LOGIFADR « LAX? 
LOGIFTOG « TRUEs FOSTOG « TRUE} 
SAVELABL « LABL? LABL « BLANKS 
STATEMENT? 
LABL « SAVELABL3 
LOGIFTOG « FALSE FOSTOG «+ FALSE 
FIXB¢CLOGIFADR)3 
END ELSE 
BEGIN 
1F TYPE = DOUBTYPE THEN 
BEGIN EMITOCXCH)3 EMITOQCDEL,) END3 
SCAN3 
IF NEXT # NUM THEN FLOGC109)3 
FX{ « FNEXTS NX1 « NAMES 
SCAN3 
IF NEXT # COMMA THEN FLOGC114)3 
SCANS 
1F NEXT # NUM THEN FLOGC109)3 
FX2 «© FNEXT#S NX2 * NAMES 
SCANS 
1F NEXT # COMMA THEN FLOG(114)3 
SCANS 
1F NEXT # NUM THEN FLOGC109)3 
FX3 ¢ FNEXT3 NX3 « NaMe3 


SCAN} 

IF FX? = FX3 THEN 
BEGIN 

FMITPAIRCOsGEaL)3 


LABELBRANCHCNX1s TRUPD$ 

LABELBRANCHCNX3+ FALSE)? 

IF XREF THEN ENTERX(NX9eO8LABELIOPTOCLASS]J)3 
END ELSE 

IF FX1 = FX3 THEN 
BEGIN 


153 15S 


START OF SEGMENT 


05349300 T 0065 
05349400 T 0067 
05350000 T 0069 
05351000 T 0070 
05352000 T 0070 
73 LONGs NEXT SEG 
05353000 T 0593 
05354000 T 0593 
TTL LL Le LT 
05354010 T 0000 
05355000 T 0000 
05356000 T 0001 
05357000 T o0001 
05358000 T 0003 
05359000 T 0004 
05360000 T 0007 
05361000 T 0009 
05362000 T 0010 
05363000 T O010 
05364000 T OOf] 
05365000 T 0012 
05365100 T 0015 
05366000 T 0016 
05366100 T 0017 
05367000 T 0017 
05368000 T 0090 
05369000 T 0024 
05370000 T 0021 
05371000 T 0021 
05372000 T 0022 
05373000 T Q024 
05374000 T 0024 
05375000 T 0026 
05376000 T 0028 
05377000 T 0028 
05378000 T 0030 
05379000 T 0031 
05380000 T 0033 
05381000 T 0034 
05382000 T 0035 
05383000 T 0037 
05384000 T 0037 
05385000 T 0039 
05386000 T O04} 
05387000 T O044 
05388000 T 0042 
05389000 T 0043 
05390000 T 0044 
05391000 Tt 0045 
05391200 T 0046 
05392000 T 0048 
05393000 T 0048 
05394000 T 0050 


O 


) 


Or > -@ 


Ce Ay .G 


O 


O 


} 


END 


EMITPAIRCO*NEGL 3 
LABELBRANCHCNX2e TRUE)$ 
LABELBRANCHCNX{# FALSE)$ 
IF XREF THEN ENTERXCNX3*e08LABELIDETOCLASS))3 
END ELSE 
IF FX1 = FX2 THEN 
BEGYN 
EMLTPAIRCOPLEGL)$ 
LABELBRANCHCNX3e TRUF)$ 
LABELBRANCHCNX1» FALSE)3 
1F XREF THEN ENTERXCNX2e08LABELIDETOCLASSI)3 
END ELSE 
BEGrN 
EMITOCDUP)3 
FMITPAIRCO»+NEQL)3 
EMITBC@410 TRUEDS 
EMITPATRCOsLESS)3 
LABELBRANCHCNX3* TRUF)$ 
LABELBRANCHCNX{* FALSE)3 
FIXBCLAX)3 
EMITOCDEL)3 
LABELBRANCHCNX2»® FALSE)3 
END; 
END} 
IFS3 


PROCEDURE NAMELS 


PRTC1000) = NAMEL 


BEGIN LABFL NIM»XITeELMNT» WRAPS 


NIMt 


tf SPLINK « O THEN FLAG(C12)3 

tr LOGIFTOG THEN FLAGC1IOL)S 
_ LABL © BLANKS3 
ScAN3 IF NEXT # SLASH THEN FLOGC(110)3 
ScANs IF NEXT # 1D THEN REGIN FLOGC105)3 GO TO XIT END3 
Ip J # CINFA « GETCLADR2 « FNFXT)2.CLASS = UNKNOWN THEN 
PUTCLADR2» INFARNAMELISTrTOCLASS)) 
ELSE IF J # NAMELIST THEN 
BEGIN XTA « GETCLADR? + 193 

FLAGC20)3 

ENDS. 
LSTTrLSTS « LADR1 «© 07 « NAME} 
te XREF THEN ENTERX(NAME*O8NAMELISTETOCLASS))3 
SCANS IF NEXT # SLASH THEN F1,0G6¢110)3 


ELMNT& SCANS IF NEXT # 1D THEN BEGIN FLOGC105)3 GO TO XIT END: 


LADR1 «+ LADRt + 13 


Ip ¢T «© GETCFNEW © GETSPACECFNEXT)),CLASS) > VARID THEN FLAG(48)3 


GETALLOCFNEWe INFAsINFBs INFC)3 
Ip XREF THEN ENTERXCINFB*ORINFALI52$1529] 93 


IF LSTS ¢ LSTS+1 = LSTMAX THEN BEGIN FLOGC78)3 GO TO XIT END ELSE 


LSTTELSTS] « NAMERINFAsCLASNSUBL 2$38240]80L8:4731]3 
If T = ARRAY}D THEN 
BrGIN J © INFCSADINFOS 

1 « INFC.NEXTRA3 

IF LSTS + 1 + 1 > LSTMAX THEN 

BEGIN FLOG¢78)3; 60 TO XIT END3 


LSTTELSTS ¢« LSTS 4 4) # OR1L1942%6) % # DIMENSYONS 


05395000 
05396000 
05397000 
05397200 
05398000 
05399000 
05400000 
05401000 
05402000 
05403000 
05403200 
05404000 
05405000 
05406000 
05407000 
05408000 
05409000 
05410000 
05411000 
05412000 
05413000 
05414000 
05415000 
05416000 
05417000 
154 18 75 LONG 
05430000 


05431000 
START OF SEGMENT 
05432000 
05433000 
05433100 
05434000 
05435000 
05436000 
05437000 
05438000 
05439000 
05440000 
05441000 
05442000 
05442500 
05443000 
05444000 
05445000 
05446000 
05447000 
05447500 
05448000 
05448500 
05449000 
05450000 
05451000 
05451100 
05451200 
05452000 


MAH HHH HARA AHHH AH BAA AA HK OY RA RAAF AH RA A HA A HA tt tS 


0050 
00514 
0052 
0053 
0056 
0056 
0057 
0058 
0059 
0060 
0061 
0063 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0071 
0072 
0072 
0072 
NEXT SEG 
0593 


0593 


Peer eres S 


0000 
0002 
0004 
0004 
0007 
0011 
0014 
0016 
0018 
0020 
0021 
0021 
0023 
0026 
0028 
0032 
0033 
0037 
0039 
0042 
0045 
0049 
0050 
0052 
0053 
0055 
0057 


6 


155 


a 


C3 


C) 


RINFA,ADDRI-7237311) % REL ADR 05453000 T 0059 
RINFC,BASFI18:33815] % BASE 05454000 T 0061 ‘S 
RINFC.SIZF£33233915)3 % SIZe 05455000 T 0062 
FOR T « J STEP #1 UNTIL J = 1 + 4 pO 05456000 T 0063 2 
LSTTCLSTS « LSTS + 1] © EXTRAINFOCT,IReT,ICI3 05457000 T 0068 he 
END ELSE BEGIN LSTTCLSTS+LSTS411+08C INFA,ADDRI(73373114)3 05458000 T 0073 
TF BOOLEANCINFA,CE) THEN LSTTFLSTSJeLSTTPFLSTSIRINFC,BASEL18233215] 05458400 T 0077 a 
SINFC,SI1ZE(33%33315] END3 05458600 T 0080 es 
SCANS IF NEXT = COMMA THEN Go TO ELMNTS3 05459000 T 0082 
IF NEXT # SEMI AND NEXT # SLASH THEN FLOG(115)3 05460000 T 0084 ea 
LSTTELSTS + 4] « 03 05461000 T 0087 — 
LSTTLO],C2:10] « LADRY 05462000 T 0088 
PRTSAVERCLADR2*LSTS + 2eLSTT)3 05463000 T 0094 - 
IF NEXT # SEMI THEN GO TO NIM$3 05464000 T 0093 — 
XIT3 : 05465000 T 0094 
END NAMFL3 05466000 T 0095 bs 
155 IS 96 LONG» NEXT SEG 6 = 
PROCEDURE PAUSE} 05467000 T 0593 
PRT(1001) = PAUSE 7 
TF DCINPUT THEN REGIN XTA*"*PAUSE "3 FLOGC151) END ELSF 05467100 T 0593 S 
BEGIN 05468000 T 0596 
FONS+TRUE 3 05468010 T 0599 ” 
IF TSSEDITOG THEN TSSENDC™PAUSE 2) 3 05468100 T 0599 
FXECUTABLE3 05469000 T 0602 
SCANS 05470000 T 0602 2 
te NEXT = SEM] THEN FMrTLCO) ELSE 05471000 T 0603 ay 
1F NEXT = NUM THEN 05472000 T 0605 
BEGIN 05473000 T 0607 eh 
EMT TNUME(NAME)3 05474000 T 0608 oe 
SCAN} 05475000 T 0609 
END3 05476000 T 0609 
EMITPAIRC33» KOM)3 05477000 T 0609 CO 
EMITOCDEL)3 05477100 T 0610 
END PAUSES 05478000 T 0611 es 
; PROCEDURE TYPITCTYPsTMPNXT)3 VALUE TYP% REAL TYPsTMPNXT 3 05479000 T 0611 C 
PRTC1002) = TYPIT 
BEGYN 05480000 T 0611 
TYPreTYP} SCAN 3 05480010 T 0611 O 
IF NEXT=16 THEN BEGIN TMPNXT#163 FUNCTION END ELSE DIMENSION 3 05480020 T 0613 
END OF TYPIT 3 05480040 T 0617 
DEFINE cOMPLEX =TYPITCCOMPTYPEsTEMPNEXT) #¢ 05481000 T 0617 O 
LOGICAL =TYPITCLOGTYPE »TEMPNEXT) #, 05482000 T 0617 
NOURLEPRECISION =TYPrTCNOUBTYPE»TEMPNEXT) #> 05483000 T 0617 
tNTEGERS =TYPTTCINTYPE »TEMPNEXT) #, 05484000 T 0617 O 
REALS =TYPrTCRFALTYPE»TEMPNEXT) #3 05484500 T 0617 
PROCEDURE STOP3 05485000 T 0617 
PRT¢1003) = STOP oO 
BEGIN 05486000 T 0617 
ReETURNFOUND « TRUBS 05486100 T 0617 ae 
FODS«eTRUE 3 05486110 T 0619 VU 
EXECUTABLE ; 05487000 T 0620 
COMMENT INITIAL SCAN ALREADY DONES 05488000 T 0621 
EMITLOQ)3. 05489000 T 0621 O 
EMITPAIRC16» STD)3 05490000 T 0621 
EMITPAIRC10O* KOM)3 05491000 T 0622 ; 
EMITPAIR(5+ KOM)3 05492000 T 0623 O 
WHILE NEXT # SEMI DO SCAN3 05493000 T 0624 
O 


O 


STACK(F42) 
3) 


STACK EF 4 


PRT¢1005) 


~ 
= 


END 


STOP} 


PROCEDURE RETURNS 
PRT€1004) = RETURN 
BEGIN LABEL EXIT$ 


= T 
= XITCODE 


\ 


% VO 


BEGIN 
10 


BEGIN 


END 
IF aD 


END3 


EXIT! 


REAL Ts XITCODE3 


RETURNFOUND « TRUBS 
FODS*eTRUE 3 
EXECUTABLE} 


SCAN; . 
re SPLyNKsO OR SPLINK=1 THEN 

BEGIN XTA*"RETURN'S FLOGC153)3 GO EXIT END 3 
1F NEXT = SEMT THEN 


IF ¢T « GETCSPLINK)):CLASS = FUNID THEN 


EMITVCFUNVAR)3 

IF T,SUBCLASS > LOGTYPE THEN EMITPAIRCJUNKe STD)3 
XITCODE «+ RTN3 

FLSE XITCODE « XIT3 

R 2 4077 THEN 

BEGIN ADR « ADR+13 SEGOVF END? 
EMITOPDCLITC1538)3 % F+2 
EMITPAIRC3» BFC)3 

FMITPATRC10*% KOM); 
EMITOCXITCODE)3 
FMITOPOCLIT(C16)3 

EMYTPAYRC1s SUB)$ 

FMITPAIRC{6+ STD)$ 
EMITOCXITCODE)3 

GO TO EXIT3 


1F LABELMOM = 0 THEN FLOGC145)3 

tF EXPRETRUE) > RFALTYPE THEN FLAGC10293 

TF EXPRESULT = NUMCLASS THEN 

BFGIN 1F XREF THEN ENTFRXCEXPVALUE, O&LABELIDETOCLASSJ)3 
ADR « ADR*13EMITLCEXPVALUE =] ) 

END ELSE 

EMITPAIRC1» SUB)3 

EMITOPDCLITCLABELMOM)3 

EMITOCMKS)3 

EMITLC9)3 

EMITOPDCLIT(5)3 


END RETURNS 


PROCEDURE IMPLICIT 3 


IMPLICIT 


BEGIN 
REAL 


Ri eR2@eR3eRA 3 


START OF SEGMENT 


156 IS 


05494000 T 0627 
05495000 T 0627 
05496000 T 0627 
2 KK a 
05497000 T 0000 
05497100 T 0000 
05497110 T O001 
05498000 T 0002 
05498100 T 0003 
05498200 T 0003 
05499000 T 0003 
05499100 T 0003 
05499110 T 0005 
05500000 T 0009 
05501000 T 0009 
05502000 T 0010 
05503000 T 0010 
05504000 T 00142 
05505000 T 0013 
05506000 T 0013 
05507000 T 0016 
05508000 T 0017 
05509000 T 0018 
05510000 T 0019 
05511000 T 0021 
05512000 T 0022 
05513000 T 0023 
05514000 T O024 
055145000 T 0025 
05516000 T 0025 
05517000 T 0026 
05518000 T 0027 
05519000 T 0028 
05520000 T 0031 
05520100 T 0031 
05521000 T 0033 
05521100 T 0035 
05521200 T 0036 
05521400 T 0039 
05591600 T 0041 
05522000 T 0042 
05523000 T 0043 
05524000 T 0044 
05525000 T 0045 
05526000 T 0045 
05527000 T 0046 
05528000 T 0046 
05529000 T 0047 
50 LONGe NEXT SEG 
05529100 T 0627 
05529105 T 0627 
05529110 T 0627 


START OF SEGMENT 4x tok ae 


156 


6 


157 


O) 


Cae ie A Re a a 


C) 


Gh Gy a6) 


cy 


3 


CO) 


Q 


STACKCF 42) 
STACK(F43) 
STACKCF44) 
STACK(F 45) 


nouonn 


Ri 


Lf 


As 


tr NOTCLASTNEXT=42 OR LASTNPXTS1000 OR LASTNEXT=30 
OR LASTNEXTe16 OR LASTNEXT = 11) %110° 


LABEL ReAeXek 3 


THEN BEGIN FLOGC18193 FILFTOG*TRUES GO X END ? 
EOSTOG*ERRORTOG«TRUES FILFTOG*FALSE 3 
MOVEWCACCUME 3], ACCUMEL23+0,3)% SCAN? ERRORTOG*FALSES FILETOG+TRUF 3 
IF Rie IF R3eNEXTS$8 THEN INTID ELSE IF R396 THEN REALID ELSE 08 


CIF R3510 THEN DOUBTYPE E\,SE IF R3=49 THEN LOGTYPE ELSE IF R3 


6 THEN COMPTYPE ELSE O)CTOSUBCLJ=0 THEN 
BEGIN FLOG¢182)3 GO X END 3 
SCN+23 SCAN 3} 
IF NEXT=STAR THEN IF R3#10 THEN 
BEGIN SCAN 3 
IF NEXTSNUM AND NUMTYPESINTYPE THEN 
BEGIN 
IF FNEXT=4 THEN BEGIN IF R3=6 THEN FLAGC176)23 GO L END 3 
IF FNEXT=8 THEN 
BEGIN 
IF R3526 THEN RteO&DOUBTYPErTOSUBCL] 
ELSE IF R346 THEN FLAGC177) 3 
GOL 3 
END } ° 
END } 
FLAGCIF R3=26 THEN 178 ELSE 177@REALCR3=6)) 3 
NCReREALONCR,£30%3]40)43"677777"4NCRES SCNeds SCAN 3 
END 3 
IF NEXT#LPAREN THEN BEGIN FL0G(106)% GO X END 3 
SCAN? R4GeERRORCT 3 
IF R2*NAMEsf1286)<17 OR (R2>25 AND R2e33) OR (R2>441 AND R250) 
OR R2>57 OR NAME,£18230]¢" " THEN FLAG(179) 3 
SCAN 3} 
IF NEXT#MINUS THEN 


BFGIN IF ERRORCT=R4 THEN TIPELIF R2¢"0" THEN R2 ELSE 12)«R4 END 


ELSF BEGIN 
SCAN 3 
IF R3*NAMF,£1236]<17 OR (R3>25 AND R3<33) OR CR3>41 AND R3€50) 
OR R3>57 OR NAME,¢18330)#" " THEN FLAGCI79) 3 
IF R3 LEQ R2 THEN FLAGC180) 3 
if ERRORCT=R4 THEN FOR R2*R2 STEP 1 UNTIL R3 DO 
REGIN 
IF R2>25 AND R2e33 THEN R2*33 ELSE JF R2>41 AND R2<50 
' THEN R2«50 3 
TIPErIF R2#"0" THEN R2 ELSE 12)¢R1 3 


FND 3 
IF NEXT=COMMA THEN GO A 3 
IF NEXT#RPAREN THEN BEGIN FLOGC108)3 GO X END 3 
SCANS IF NEXT=COMMA THEN GOR 3 
IF NEXT#SEMTt THEN BEGIN FLORC117)3 GO X END 3 
IF SPLINK>¢ THEN 
BFGIN 
1F BOOLEANCTYPE.(2%1)) THEN IF GET¢CSPLINK)sCLASSSFUNID THEN 


%¥110" 


05529120 
05529130 
05529131 
05529140 
05529210 
05529215 
05529220 
05529230 
05529240 
05529250 
05529260 
05529270 
05529280 
05529290 
05529300 
05529310 
05529320 
05529330 
05529340 
05529350 
05529360 
05529370 
05529380 
05529390 
05529400 
05529410 
05529490 
05529430 
05529440 
05529450 
05529460 
05529470 
05529475 
05529480 
05529490 
05529500 
05529510 
05529520 
05529530 
05529540 
05529550 
05529560 
05529570 
05529580 
05529590 
05529600 
05529610 
05529620 
05529630 
05529635 
05529640 
05529650 
05529660 


AA AA ABR AAMT AAMT AHH TAA AAA HHA st Ht HW gg ht tg A st UG 


0000 
0000 
0002 
0004 
0007 
0010 
0014 
0018 
0022 
0026 
0028 
0029 
0031 
0032 
0034 
0035 
0038 
0039 
0040 
0042 
0045 
0046 
0046 
0046 
0049 
0054 
0054 
0058 
0059 
0064 
0068 
0069 
0070 
0074 
0077 
0077 
0082 
0087 
0089 
0092 
0092 
0096 
0098 
0101 
0104 
0104 
0104 
0105 
0108 
0110 
0112 
0113 
0113 


() 


Smee © 


Oo “to oO: TO- “Oe 


O.. © 


—— 
\ 
, 

— 


) 


GIN 
POrSPLINK« IR» SPLINK, 163 SUBCLASS*R3*TIPELIF R3«GETC 
SPLINK+1),f£1286]4"0" THEN R3 ELSE 121],SUBCLASS 
INFOCFUNVAR. [Re FUNVAR, IC] ,SUBCLASS«R3 3 
END 3 
IF Ri*GETCSPLINK+2)<0 THEN 
FOR R2eR1,NEXTRA@14+R1¢R1,ADINFO STEP =1 UNTIL R1 DO 
IF R3*PARMLINKER2"R14+1340 THEN 
BEGIN 
EXTRAINFOELERZ,fReR2,1C)SUBCLASS#RAeTIPELIF Roe 
GETCR341)2,01286]#"0" THEN R4 ELSE 1217 
~SUBCLASS 3 
INFOCR3,IReR3,I1C],SUBCLASS*#R4 3 
END 3 
END 3 
X? WHILE NeEXT#SEMr DO SCANS FILETOR*FALSE 3 
END OF yMPLICIT 3 


| PROCEDURE SUBROUTINES 
PRT¢1006) = SUBROUTINE 
BEGIN 


IF SPLINK NEQ O THEN BEGIN FLAG(S5)3 ENDS? SEGMENTSTARTS END3 
LABL « BLANKS3 
FORMALPPCFALSEs SUBRID)$ 
SPLINK « FNEW$ 
END SUBROUTINE? 
PROCEDURE MEMHANDLERCN)$ VALUE N3 REAL N 3 
PRT(1007) = MEMHANDLER 
BEGYN 
REAL A 3 


STACK(F42) = A . 
LABrL Lisb2esL3,XIT 3 
IF WEBUGTOG THEN FLAGROUTINEC™ MEMHA","NDLER ", TRUE) 3 
IF N LEQ 2 THEN 
BEGIN % FIXED=1ie VARYING=2, 
NetF Nat THEN 6 ELSE O 3 
Li? SCAN 3 ‘ 
TF NEXT#1D THEN BEGIN FLOG¢105)% GO X1T END $ 
IF CAeGET¢GETSPACECFNEXT)2),CLASS#ARRAYID THEN 
BEGIN FLOGC¢35)! Go XIT END 3 
IF XREF THEN ENTERXCXTA®08AL1521529]) 3 
IF BOOLEANCAsEQ) OR BOOLEANCAsFORMAL) THEN FLAGC169) 
ELSE BEGIN 
EMITOCMKS)3 EMITPAIRCAsADDR®L,00)93 EMITLON) 3 
EMITVCNEEDC"™, MEMHR's INTRFUNID)) 3 
END 3 
SCANS IF NEXTSCOMMA THEN GO L1 3 
END 
ELSpe IF N&3 THEN 
BEGIN % AUXMEMED FUNCTION OR SUBROUTINE, 
SCAN 3 
IF NEXT#ID THEN BEGIN FLOG(105)3 GO XIT END 3 
IF GFTCFNEXT+1)4GETCSPLINK+1) THEN 
BEGIN FLOG¢170)3 GO XIT END 3 
PUTCSPLINK»sGETCSPLINKI&ICTOADYI) 3 
IF XREF THEN ENTERXCXTAsO8GETCFNEXTI£1521529))3 SCAN 3 


05529670 
05529680 
05529690 
05529700 
05529710 
05529720 
05529730 
05529740 
05529750 
05529760 
05529770 
05529780 
05529790 
05529800 
05529810 
05529820 
05529830 
157 1S 164 LONG 
05530000 


05531000 
05532000 
05532100 
05533000 
05534000 
05535000 
05535010 


AAA AHO Ae HHA HAHAHA 4H 


05535020 T 
05535030 T 


0116 
0117 
0120 
0126 
0131 
0131 
0133 
0140 
0142 
0143 
0145 
0150 
0152 
0156 
0157 
0157 
0161 
NEXT SEG 
0627 


0627 
0627 
0631 
0631 
0632 
0633 
0633 


0633 
0633 


START OF SEGMENT * xk koa x 


05535040 
05535045 
05535050 
05535060 
05535070 
05535080 
05535090 
05535100 
05535140 
05535120 
05535130 
05535140 
05535150 
05535160 
05535170 
05535180 
05535190 
05535200 
05535210 
05535220 
05535225 
05535230 
05535235 
05535240 
05535250 


SAH AHH AAA AAA HAA HAH 


0000 
0000 
0002 
0002 
0003 
0006 
0006 
0011 
0013 
0015 
0018 
0020 
0021 
0024 
0026 
0026 
0028 
0028 
0030 
0031 
0031 
0034 
0037 
0038 
0044 


6 


156 


O 


OQ 


OQ 


C) 


STACK ¢F +2) 
STACKCF +3) 


PRTC1010) 


= 
= 


= 


L2t 


L33 


END 
ELSE 


SCAN 3 
IF NEXT#ID THEN BEGIN FLOGC(105)3 GO XIT END 3 
TF CAeGETCGETSPACECFNEXT)2),CLASSSARRAYID THEN 


BEGIN 


BEGIN % RELEASE: 


IF BOOLEANCA.EQ) OR BOOLEANCAsFORMAL) THEN FLAGC169) 

ELSE BEGIN 
EMITOCMKS)3 

EMITPAIRC1*SSN) 3 

ELT VENEER Cre MEHH AT TNT REUNID 3 
ND 3 

IF XREF THEN ENTERXCXTA®O08AL1521539]) 3 


END 


EMITPAIRCAsADDRsLOD) § 


ELSE IF A,CLASSSBLOCKID OR A,.CLASSSLABELID THEN 


BEGIN FLOGC171)3 


EMITPAIRCA,ADDReLOD)$ 


ELSE BEGIN 
EMrTO¢DFL)3 
ENn 3 
SCAN} 
END 3} 


GO XIT END 


EMI TPAIRC38eKOM) 
G0 L3 $ 


IF NEXT=COMMA THEN GO L2 3 


XITtIF NEBUGTOG THEN FLAGROUTINEC"™ MEMHA","NDLER "sFALSE) 3 
END OF MEMHANDLER 3 


PROCEDURE STATEMENTS 
BEGIN LABEL, DOLI1» 


XT 


REAL TEMPNEXT 3 


TEMPNEXT 


ENDTOG 


BoOLEAN ENDTOG: 


BEGIN 


Do SCAN UNTIL NEXT # SeEMI3 
IF NEXT=ID THEN ASSIGNMENT ELSE IF NEXT LEQ@ RSH1 THEN 
CASECTEMPNEXT*NEXT) OF 


FLOGC16)3 
ASSIGNS 


*CASE STATEMENT DESCRIPTOR 


TOCOMMAND(4)3 
BLOCKDATAS 


CALL} 
COMMON} 
COMPLEX3 


BFGIN EXECUTABLE} 
LTOCOMMAND(7)3 


BEGIN SCAN} 


& 


NOUBLEPRECISYON3 


BFGTtN ENDS: 


FILECONTROL¢1)3 


ENTRY3 


EQUIVALENCE3 


EXTERNAL S 


ENDTOG?sTRUE3 


ZBACKSPACE 


SCAN END; 
DATA 


ZENDFILE 


% CONTINUE 


TYPE «© ™142 DIMENSION END$3 


SCAN END3 


BEGIN TYPE «© -13 FUNCTION END3 


GoTOS:3 
INTEGERS3 
LOGICAL: 


3 


Ali2= 


¥112s 


158 


1s 


START OF SEGMENT 


05535420 T 0045 
05535430 T 0045 
05535440 T 0045 
05535450 T 0046 
05535460 T 0049 
05535470 T 00514 
05535480 T 0052 
05535490 T 0054 
05535500 T 0055 
05535510 T 0058 
05535520 T 0059 
05535530 T 0060 
05535540 T 0060 
05535550 T 0063 
05535560 T 0063 
05535570 T 0068 
05535575 T 0070 
05535580 T O07} 
05535585 T 0073 
05535590 T 0074 
05535595 T 0074 
05535600 T 0076 
05535605 T 0076 
05535610 T 0079 
B4 LONG» NEXT SEG 
05536000 T 0633 
05537000 T 0633 
FOR OOK KK 
05537100 T 0000 
05537200 C 0000 
05538000 T 0000 
05539000 T 0001 
05540000 T 0004 
05541000 T 0006 
05542000 T 0006 
05543000 T 0008 
05544000 T 0009 
05545000 fT 0010 
05546000 T O011 
05547000 T 0012 
05548000 T 0013 
05549000 T 0015 
05550000 T 0016 
05551000 T 0017 
05552000 T 0020 
05553000 P 0022 
05554000 T 0024 
05555000 T 0025 
05556000 T 0026 
05557000 T 0027 
05558000 T 0028 
05559000 T 0030 
05560000 T 00314 
05561000 T 0033 


6 


159 


O 


© 


a NAMEL? 05562000 T 0035 
ee, PAUSES 05563000 T 0036 
LOCOMMAND(2)3 ZPRINT 05564000 T 0037 
ey } 05565000 T 0038 
es TOCOMMAND(3)3 %PUNCH 05566000 T 0038 
LOCOMMAND(0)3 ZREAN 05567000 T 0040 
se RFALS} 05568000 T 0041 
Y RETURNS 05569000 T 0043 
FTLECONTROL(O)3 %ReWND 05570000 T 0044 
: BFGIN SCAN} STOP FND;3 05571000 T 0045 
© SUBROUTINES 05572000 T 0047 
POCOMMAND( 193 ZWRITE 05573000 T 0048 
ois FrLECONTROLC7)3 @CLOSE 05573100 T 0049 
iS FTLECONTROL(6)3 ZLOCK 05573200 T 0051 
FYLECONTROLC4)3 ZPURGE 05573300 T 0052 
5, 1FS3 05574000 T 0053 
VY FORMATERS 05575000 T 0054 
CHAINS 05575100 T 0055 
ee MEMHANDLERC1) # SF IXED 05576000 T 0056 
ad MEMHANDLERC2) # SVARYING 05576100 T 0058 
MEMHANDLER(3) % ZAUXMEM FOR SUBPROGRAMS 05576200 T 0059 
ae MEMHANDLERC4) $ S%RELEASE 05577000 T 0061 
Y IMPLICIT 3 05577100 T 0062 
END ELSE IF NEXTSEOF THEN GO XIT ELSE BEGIN NEXT#0O$ FLOGC16) END 3 05578000 T 0063 

ee START OF SEGMENT *xekkeRERR = 160 

<. 160 1S 44 LONGs NEXT SEG 159 
LASTNEXTaL33215]+TEMPNEXT 3 05578100 T 0067 
{ IF NOT ENDTOG THEN IF SPLINK=O THEN SPLINKi=13 x1129 05579000 P 0068 
© FNDTOGISFALSES 4112" 05579100 c 0074 
IF LABL # BLANKS THEN 05580000 T 0072 
oe BEGIN 05581000 T 0073 
es IF DT # 0 THEN 05582000 T 0073 
BEGIN 05583000 T 0074 
_ DOL4! 1F LABL = DOLABLTEST « DT] THEN 05584000 T 0075 
ie BEGIN 05585000 T 0076 
EMITBCDOTFSTCOTIs FALSF)E 05586000 T 0077 
ie FIXBCNDOTEST(DTI.,ADDR)S 05587000 T 0078 
i 1F DT « DT=4 > O THEN @O To DOLI13 05588000 T 0079 
END ELSE 05589000 T 0082 
WHILE TEST « TEST#1 > 0 DO 05590000 T 0082 
‘S IF DOLABLTEST] = LABL THEN FLAG(14)3 05591000 T 0085 
END3 05592000 T 0088 
as : LABL « BLANKS3 05592100 T 0088 
2 , END; 05593000 T 0088 
_ 05594000 T 0088 
me IF NEXT # SEMI THEN 05595000 T 0088 
O BEGIN 05596000 T 0089 
FLAGC117)3 05597000 T 0090 
me DO SCAN UNTIL NEXTsSeEMy OR NEXTSEOF 3 05598000 T 0090 
cS END$ 05599000 T 0093 
FRRORTOG « FALSE 05600000 T 0093 
FOSTOG « TRUE3 05601000 T 0094 
(© X1Ts 05602000 T 0095 
ENn STATEMENTS 05603000 T 0096 

159 1S 99 LONGs NEXT SEG 6 
O BOOLEAN STREAM PROCEDURE FLAGLASTCBUFFSERR) $ 05603010 T 0633 


PRT¢1011) = FLAGLAST 


yee 


PRT(1012) 


PRT¢10143) 


PRT¢1014) 


PRT¢1015) 


PRT¢1046) 


PRT¢1017) 


PRTC 1020) 


ri 


BEGIN 
LOCA, A$ 


ST*ERRS BCIF Sc#" * THEN JUMP OUTS SreSre tI TALLY TALLY 4423 
AeTALLY? ST*#LOC A3 S1#S 147 3 
tF Sc<"8" THEN 
BEGIN TALLY «43 FLAGLASTe#TALLY 3 


DreBUFF3DSe46 LIT"LAST SYNTAX ERROR OCCURRED AT SEQUENCE NUMBER "3 


DSeLpTrmns ST*ERR3 0S<¢8 CHR} DSeLITMens 
NSe32 LIT * 5 %510" 
pS*32 LIT " "s 2510" 


EnD 
ENO FLAGLAST } 


*LISTs LABEI.» OR SEGMENT DESCRIPTOR« 


FOC! 


INTEGER PROCEDURE FIELDCX)3 VALUE X$ INTEGER X3 

FIELDelp X<10 THEN 1 ELSE IF X<100 THEN 2 ELSE IF X<1000 THEN 3 FLSF IF 
X<10000 THEN 4 ELSE IF X<100000 THEN 5 ELSE IF X<1000000 THEN 6 ELSE 73 
FORMAT FOCI¢(/ "NUMBER OF SYNTAX ERRORS DETECTED = "elms y aX%y 


05603020 
05603030 


05603040 
05603050 
05603060 
05603070 
05603080 
05603081 
05603082 
05603090 
05603100 


05603110 
05603120 
05603130 
05604000 


START OF SEGMENT 


"NUMBER OF SEQUENCE ERRORS DETECTED = "ptwey), 
rOCPC"PRT S1ZE = “"opeet3 TOTAL SEGMENT SIZE = "o] xe 
" WORDS? O1rSK SIZE = %,1%," SEGS3 NO, PRGM, SEGS = ,1#, 
wo), 
FOC3C"ESTIMATED CORE STORAGE REQUIREMENT = "s]*," WORDS}, 
" COMPILATION TIME = ,]%," MINe eo T%*, SECSIM, 
" NO, CARDS = oe 1¥ytyt)o 
FOCAC"ESTIMATED CORE STORAGE REQUIREMENT = e]*e”" WORDS3# 
" COMPILATION TIME = %sT%e" SECS? NO, CARDS = MpTapty yd, 
FOCSC"NUMBER OF TSS WARNINGS DETECTED = “aust my) 3 
COMMENT MAIN DRIVER FOR FORTRAN COMPILER BEGINS HERE? 
RTI «© TIMECL)3 
INITIALIZATION 
DO STATEMENT UNTIL NEXT = EOFS 
IF NOT ENDSEGTOG THEN IF SPLINK NEQ 0 Ziit2- 
THEN BEGIN XTAS=BLANKS$ FLAGC5)3 ENDS END} 4112" 
WRAPUP3 
POSTWRAPUP? 


IF TIMETOG THEN IF FIRSTCALL THEN DATIMES 
1F NOT FIRSTCALL THEN 

BEGIN 

WRITE CRITE ®EOCIsFIELDCERRORCT) sERRORCT»IF SEQERRCTSO THEN 99 ELSF 


*LISTs LABEL» OR SEGMENT DESCRIPTOR 


, SeFIFLDOCSEQERRCT@3 )+SEQERRCTH1) 3 
tF WARNED AND NOT DCYNPUT THEN WRITECRITE SE OCSsFIELDCWARNCOUNT)D, 


*LIST+ LABEL» OR SEGMENT DESCRyPTOR« 


WARNCOUNT) 3 
WRITE CRITE eEOC2sFIELDCPRTS) »PRTS,FIELDCTSEGSZ) pe TSEGSZeF IELDCDALOC#1), 


*LISTs LABEl.» OR SEGMENT DESCRIPTOR* 


DALOC@1eFIELDONXAVIL) *NXAVIL) 3 
IF CyeeTIME (12 #*RT1)/60 > 59 THEN WRITECRITESEOC3*¢FIELDC64xXESTIMATE)» 


*LIST»s LABE!,» GR SEGMENT DESCRIPTOR 


64xESTIMATESFIELDCC1 DIV 60)-C1 DIV 60eFIELDCC1 MOD 60)9C1 MOD 60» 
FIELDCCARDCOUNT=19eCARDCOUNT=1) ELSE WRITECRITEsEQC4sFIELOCESTIMATE 


*LIST» LABEL*® OR SEGMENT DESCRIPTOR« 


XO4d SE STIMATE X64 sFIELDCC1aCieFIELDCCARDCOUNT@1) *CARDCOUNT@1) 3 
IF ERRORCT>O THEN IF FLAGLASTCERRORBUFF »LASTERR) THEN WRITECRITE e152 
ERRORBUFFC#I]) 3 


161 


IS 


05605000 
05606000 
05607000 
05607010 
05608000 
05608010 
05608090 
05608030 
05608040 
05608050 


106 LONG 


05609000 
05610000 
05611000 
05612000 
05612100 
05612200 
05613000 
05613900 
05614000 
05615000 
05616000 
05617000 


05618000 
05618100 


05618110 
05619000 


05619010 
05619020 


05619030 
05619040 


05619045 
05619050 
05619100 


AHO NOAA A AHHH 


VA aH AHO VHS Hse AHH Haast 


ee a 


404 


0633 
0634 


0637 
0637 
0638 
0639 
0645 
0647 
0651 
0655 
0655 


0657 
0657 
0663 
0675 


SOK Kk 


0675 
0675 
0675 
0675 
0675 
0675 
0675 
0675 
0675 
0675 
NEXT SEG 
0675 
0675 
0677 
0677 
0679 
0681 
0684 
0685 
0685 
0688 
0689 
0689 


0700 
0709 


07149 
0723 


0736 
0747 


0757 
0771 


0785 
0802 
0809 


161 


6 


C3 


OF Ge. uO 


= 


O) 


O 


~ 


Cr © 


~ 
+ 


END 3 
END INNER BLOCK} 
PRTC(1021) 3 *SEGMENT DESCRIPTOR 


END. 


PRTC431) = OUTPUTCW) INTRINSIC» SEGMENT NUMBER = 162, 
PRT¢(5) = BLOCK CONTROL :NTRINSICs SEGMENT NUMBER = 163, 
PRT¢(¢557) = tNPUTCW) INTRINSICe SEGMENT NUMBER & 164, 
PRT¢515) = SORT YNTRINStCe SEGMENT NUMBER = 165, 


PRT¢446) G0 TO SOLVER YNTRINSIcse. SEGMENT NUMBER = 166, 
PRTC14) = ALGOL WRITE INTRINSICs SEGMENT NUMBER = 167, 
PRTC15) = ALGOL READ INTRINS{Cs SFGMENT NUMBFR = 168, 
PRT¢16) 5 ALGOL SELECT INTRINSTCe SEGMENT NUMBER = 169, 
PRT¢514) = MERGE INTRINSIC, SEGMENT NUMBER = 170, 

PRT¢360) = FILE ATTRBUTS INTRINSIC, SEGMENT NUMBER = (471, 


NUMBER oF ERRORS DETECTED = 0. COMPILATION TIME = 400 SECONDS, 

PRT SIZE = 5303 TOTAL SFGMENT SIZE = 14260 WORDS$ DISK SIZE = 720 SEGS} NOe PGM, SEGS = 
ESTIMATED CoRE STORAGE REQUIRED = 19044 WorDS, 

ESTIMATED AUXILIARY MEMORY REQUIRED = O WORDSe 


NUMBER OF CARD*#IMAGES PROCFSSED = B2516 


05619200 T O811 
05620000 T 0811 


6 1S 6815 LONGs NEXT SEG 


05621000 T 0089 
2.18 92 LONG» NEXT SEG 


1 IS 2 LONGs NEXT SEG 
172 IS 69 LONGe NEXT SEG 


172 


C) C) 


(ee Oe ee es Gs a 


C) 


C) 


} 


0002 «00151000% 
00650000 00725000 «00894000« 00896000 00897000 00898000 «00909000« 00910000 00945160 01129000 01248000 
01655000 02610000 «03162007% 03162014 403162030* 03162060 03162120 #03164050% 03164100 *03219000% 03220000 
03222000 *03224000% 03226000 *03976000% 03977000 «03997000x 03998000 04000000 *04002000* 04004000 *«04075000% 
*04082000% 04082400 04099000 04101000 04102000 04105000 044111000 04113000 04114050 04114520 04115000 
04126100 «*04136000% 04139000 04151000 404155000 04157000 04158000 *£04350000« 04354000 *04354000%%«04359000% 
04359000 04487050 05063300 05063450 05063670 *05088000%« 05089050 05090000 05091000 05427100 «05271000 
05272050 05273000 05274000 05529120 05535030 05603030 


0006 *00408000x« 


0006 «004146000 


0006 «00418000 


A 
0006 «00706600 


00706640 00706650 00706660 


A 
0006 «00422220 
00422230 


0006 «00707000* 
00711000 00720000 


0006 *00422000* 


C: 


Co = OS 


Gy. -i@e- 8G a Ss NE) 


i 


(3 


Q 


() 


~ 


( 


0006 


0006 


0006 


0006 


0006 


0006 


0023 


0023 


0034 


0030 


#00422235% 
00422240 00422950 


*01364010% 


01364030 *01364030% 01364030 


#01520000 
01528000 01537000 


*02317000% 


02319000 


*03691000« 
03626000 


*05603030% 


05603040 


*00650000« 


01538000 *01538000% 01539000 


*90678000%%*00685000% 00694000 «00695000% 00696400 


*00651000« 


00672000 


¥00915160« 


00915220 00915280 
00945720 00915760 
00916300 00916400 


*00725000« 


00945300 
00915780 


00915480 
00915800 


00945560 
00945820 


01540000 


00700000 


00945580 
00915960 


01543000 


00702000 


00915600 
00916000 


01545000 


00702100 


00915620 
00916020 


01551000 


00705100 


00915660 
00946040 


00915680 
009146080 


00915700 
00916460 


C} 


4A SGD 


O 


Ce “aoe Ak: ‘aye A) 


C3 


0041 


0046 


0062 


0074 


0075 


0085 


0080 


0084 


0081 


00748000 
00768000 


*01129000* 


*¥01130000% 
01149000 
01171000 


*01248000% 
01249000 


*01655000% 
¥01673000% 


*04964000% 
01966000 


*02042000« 


02042000 


*02610000% 
02613000 


*#02362855* 
02362855 


*02523100% 
02523300 


*02514000x 
02518000 


91130500 
01153000 


04250000 


01674000 


01993000 


02046000 


02614030 


02362860 


01131000 
01154000 


01676000 


*01134000%* 01134000 


01156000 


01689000 


01158000 


00761000 


01135000 
01159000 


00763000 


01138000 
01162000 


00764000 


01140000 
01163100 


00764020 


01144000 
01164000 


90764200 


01147000 
01165000 


00764280 


01148000 
01169000 


O} 


} 


0132 *04487050* 
*04513000% 


0147 *05127100% 


05130110 05130120 *05130130* 05130140 


0158 *05535030« 


*05535100% 05535720 05535130 05535150 +*05535460*% 05535480 


0157 «05529420 
*05529430% 05529610 


ACCIDENT 
0130 «04406010 


*#04415050% 04415980 


ACCIDENT 
0139 *04786000% 


*04991000«% 04941000 04949000 
ACCUM 
0002 «00186000 
02195000 02200000 025431000 02558000 02559000 


02620200 02731000 02812000 02819000 02820000 
02883000 03376000 03378100 03437000 05025000 


ACCUMSTOP 
0002 «00186100 
02848020 *03378;,00« 
ACR 
0002 «00176000 


*#02500000% 02502000 02506020 #0281441000*% 0278,4000 


02560000 
02822000 
05038900 


02848020 


05535500 


02560100 
02825000 
05529215 


05535540 


02561000 
02831000 


05535560 


02562000 
02839000 


05535580 


02571100 
02850000 


02591100 
02878000 


G 


C5 


€) 


O oO oO 


©} 


ons 


ACR 
0081 «02448000« 


02478000 
ACRY 
0085 *02608000* 
02608000 07614000 
ACRYV 
0085 *02615000* 
02615000 027616000 
ACRY 
0081 «02448000x 
02449000 02452000 02474000 
ACRO 
0002 «00175000 
02577000 02587000 02597000 


ACR1 


0002 +«00189000« 
02500000 02622100 02622200 


0140 +«04788000« 
04792000 *04798000« 
ACTIONLABELS 
0139 «04787000 
04812000 04862000 04906000 
ADD 
0002 *00318000« 


00921000 036651300 03682000 
04269000 04270000 04271000 


ApnR 
0002 *00253000x 


02477000 


02601000 


02749000 


04914000 


03696000 
04272000 


02482000 


02620000 


02782000 «03378000 


03747000 
04557000 


02496000 


02623100 


03734000 
04855000 


02497000 


02811000 


03766000 
05055000 


02864000 «03377000 


03990490 


04256000 


04261000 


04268000 


C3 


C) 


ae 
} 
— 


ADINFO 
0002 


ADINFO 
0006 


ADJ 
0002 


ADJUST 
0006 


ADR 
0002 


00688000 
00991000 
01332000 
01676000 
03725000 
04404570 
04874000 
05272000 


03155000 


00706280 


01099000 


00931000 
02007000 
04920200 


00629000 *00782000% 00929000 «00930000 


00980000 


00694950 
01159000 
01338000 
01687000 
03738000 
04415170 
04880000 
05273000 


03650000 


00706360 


*01113000x 


00952000 
02094000 
04923000 


00984000 


01294n00 *01295000% 01295000 


*01371000% 01377000 


01545000 


01554000 


01575000 «01575000%%04578000« 01578000 
01662700 «01662700« 01663000 
01683100 «01 685000*x01695000% 01695100 


00674000 00685000 
00877000 00972000 
01326000 014328900 
01610000 014631000 
03649300 03716900 
041451000 04157000 
04591000 04773110 
05090000 05271000 
#00259000x 

00712000 00819000 
05529730 
*00706150* 

00706220 00706960 
*00249000 

00668000 01090000 
*00407000% 

00925020 00925060 
01409000 02000000 
04846135 04920000 
*00166000% 

00396000 00397000 
00964000 00972000 
01770000 

01371000 

01395000 01396000 
*#01423000% 01423000 
04532000 01539000 
*0{608000% 041662500 
*94683000% 01683000 
04841000 020014000 
02094000 


03655500 
04445040 
04604010 


02380230 
04445050 


*#94866100*% 04876000 «04887000 04887000 


04978000 


05000000 


05041400 


05041700 


00755000 00764200 0076472780 
*01163100%*01164000%*01169000* 
01347000 04348000 01350000 
01707000 04791000 01801000 
03743000 03774000 03805000 
04445100 04500320 04503010 
04891000 04897000 04956200 
05453000 05458000 05535150 
03858000 04462000 04503200 
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04730437 
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04746000 


01091000 


01096000 


04226000 


02431005 


03385355 


04747000 


*04760980**04762500% 04762510 


04227000 


04844300 


04747400 


04978000 *04230000*% 04246000 


04845400 


04749800 *04758400% 04758400 


() 


©) 


C) 


REPLACEMENT 


0077 *02165000« 


*02168000* 


RESERVED 
0002 «00292000% 


RESERVENWORDS 
0002 «00195010 


02591000 
RESERVENWORNDSLP 
0002 «00195000 
02571000 
RESET 
0078 «02261800 
*0226B8400% 
RESLENGTH 
0002 «00195010 
02591100 
RESLENGTHLP 
0002 *00195000x 
02571100 
RESULT 
0002 «00174200« 
02364380 
02364580 
RESULT 
0080 «02333100 
02333200 


RESWD 


02171000 


02592000 


02572000 


02273200 


02597000 


02577000 


02364361 
02364600 


02223000 


03402000 


03399000 


03412000 


03408000 


02364382 
02364650 


02230030 


02364385 
02364640 


02230045 


02364400 
02371004 


02231000 


02364420 
02372050 


02232000 


023644409 
02382300 


02233000 


02364460 
02404300 


02364480 
02444290 


02364500 
92419250 


02364540 


O 
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Or Or SO Ve AO Oe GG oe 


rr 
ee 
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aa 
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0084 *02523000 
02561000 02562000 *02579000« 
RETURN 
0006 *05495000« 
05529000 05569000 
RETURN 
0141 *04963000% 
*04979000% 04994900 
RETURNF OUND 
0002 *00169072x 


00792000 00949100 04408100 05486100 05497100 


RINGCHFCK 
0006 «05063100x 
*05063400% 05063500 05089100 05272400 
RITE 
0006 *«00391000% 
00422110 00422200 00723720 00916400 02287600 05647000 05618400 05619000 05619020 05619040 05619050 


RuLFSS¢ 
01241 *04028050x 


04261000 *04282010* 
ROOT 
0002 *00166000« 
00362000 05063400 050963670 05085000 05089000 05090000 05093000 *05186000%*05186100% 05186200 «05190000« 


905191000 05191400 05195000 05196000 405238400%%05238200% 05238300 05268000 05272000 05273000 05276000 
05284000 052860900 


ROUND 
0134 «04657000 


*04681000% 04681420 04686000 04686500 04687530 04690500 04699000 04712000 047144600 04720000 04723000 
04730150 04735620 04735740 04736000 04743500 04744500 04767000 04769500 


ROUND 


QO) 


0132 «04488000 


*04492000% 04567000 04573000 


ROUND! 
0134 *04657100« 


*04680700% 04728000 04744500 


ROW 
0006 *00499100% 
00499410 
RP 
0134 *04657000* 
04724000 *04736500* 


RPAREN 
0002 «00302000 


RPLUS 
0044 


RPLUSH 
0124 


RPT 
0070 


RSH 
000° 


RSH1 
0002 


01940000 
04561000 
05300260 


*01127000% 
01140000 


*04028050x« 


#04260010* 


*01847000% 


01836000 


*00194040% 


00195010 


*00194040% 


02948000 
04563000 
05318000 


91141000 


04281000 


01864000 


02591000 


03673000 
04576000 
05330000 


01142000 


04310000 


03820000 
04802000 
05360000 


01145000 


03949000 
04857000 
05529620 


01147000 


03982000 
04908000 


01148000 


03990180 
04915000 


01149000 


04203000 
04973000 


. 91150000 


*01880000* 01885000 *01885000* 07889000 *0,891000* 01921000 


04404650 
05120000 


01151000 *01168000% 


01954000 


04415130 
05262000 


04533000 
05282000 


Cs 


C) 


O 


02592000 05539000 
RSP 
0002 «00194020 
00195000 02571000 
RSP1 
0002 «00194020% 
02572000 
RSTORE 
0086 «02638000 
02642000 02643000 02663000 
RT? 
0000 #00152000* 
02027000 027028000 *05610000* 05619020 
RTN 
00029 «00325000 
05507000 
RTPARN 
0134 *«04649000* 
04748800 
RTS 
0002 «00325000 
04445250 046415970 04521000 04926000 
RwP 
0002 «00194020 
001495000 
RWS 
0002 «00494040 


00195010 


Rt 


(4 


C) 


() mM ) O () 


i) 


é 


Q 


0157 


R2 


0157 


R3 
0157 


R4 
0157 


0006 


0006 


0006 


0007 


0007 


0006 


*05529110% 


*055299200%«05529340« 


#055279110% 


*05529440% 
05529730 


*05529110» 


05529220 «055299020, 


05529510 


*05529110% 
#05599430% 


*00402000« 


*00706560* 


00706570 


*00723140x 


00723150 


*00433100% 


00433300 


*00426000« 
00430000 


*01174000% 


05529440 
05529740 


05529520 


05529475 


00706600 


00723210 


00641000 


05529475 


05529450 
05529760 


05529230 
05529530 


05529530 


00707000 


05529570 «05529720 


05529475 


05529270 


05529520 


05529310 


*05529680% 05529690 


*05529760* 05599770 


00723100 


05529730 


05529530 


05529340 
05529700 


05529790 


*05529730% 05529730 


05529550 *05529550%* 05529550 *05529560% 05529570 


05529350 


05529390 


*05529740% 05529770 


05529740 


05529500 «05529500% 05529500 


05529790 


Or 


oO. © 


O- se 9 -@ 


0006 


0006 


0025 


0043 


0049 


0048 


0050 


0070 


0078 


01174000 


*01126000* 


*01129200% 


*01190000* 


01206000 
01227000 


*00706200x 


*00706280% 


*01195000« 


01200000 


*01975000 


*04976000« 


#014255000% 


01257000 


*01305000*« 


*01306000« 


01336000 


*01824000« 
*01829000% 


*02260000% 


02260300 


01179000 


01129200 


01208000 
01229000 


00706360 


01202000 


01277000 


01307000 
01338000 


01900000 


02260600 


01187000 


01130000 


01209000 


04278000 


01308000 
01347000 


01943000 


01190000 


01134000 


01195000 


01135000 


01235000 


01158000 


01210000 *01210000* 01211000 


0,28,000 


01309000 
01348000 


01289000 


01342000 
01350000 


01159000 


01212000 


01162000 


01213000 


04291000 *04297000% 04292000 


01314000 
01351000 


01323000 


01326000 


01171000 


01217000 01219000 01220000 
04300000 
01328000 01332000 04335000 


() 


O 


0077 


0080 


0085 


0085 


0086 


0087 


0088 


0086 


0090 


*02172000« 
02173000 


*02333540% 
02333550 


*02607000% 
*02620100%*02621000% 02623000 


*02615000% 


02615000 02617000 


*02633000% 
02633000 02635000 


*02683000« 


02684000 02687000 02697000 02698000 


*02730000* 


02738000 *02738000%«02773000*% 02773000 02774000 


*02638000% 
02639000 02642000 


*03089000* 


03091000 03094900 


02775000 *02778000* 027781400 


C) 


GS 


0154 *05232000» 
*05252000x« 
SADR 
0062 «01655000 
*01668000% 
SAVFANDR 
0113 *03637100« 
*03654000 
SAVEADR 
0121 *04025600» 
«04178500» 
SAVEBRAN 
0144 *04962000* 
*04976000x 
SAVECARN 
0002 *00174100* 
*02364160x% 


ECODFETOG 
002 «00169055 


wn 


BUGTOG 


AVEDF 
0002 «00169054 


E 
0 


SAVELABL 
0154 *05354000% 


*05365100 
SAVELISTOG 

0009 «00169057« 

02261500 


05258000 


01699000 


03655500 


04350000 


04996000 


02374200 


05366100 


03659000 


02374600 


03664100 
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SAVFLISTOG 
0078 «02261500% 


"02262775" 02289450 
SAVENSEG 
0113 «03637100 
*03654000% 03657000 03663000 


SAVEPRTT0G 
0002 «00169056 


SAVFR 
0077 «02148000 


*029293000% 02236020 022939000 
SAVESUBS 
0002 «00199490 


00691530 #00692020% 04071600 *0109;000* 01096000 03106100 


SAVETIME 
0002 *00146000«% 


00392000 03365000 


03106150 *03649200*% 03649200 *04503160%* 04503160 


00169060 
00169074 
00169082 
00169093 
00422275 
00723690 


02093000 


SAVETOG 
0002 *00169050x 

00169053 00169054 00169055 00169056 00169057 00169058 00169059 
00169064 00169065 00169066 00169067 001469068 00169069 00169070 
00169075 00169076 00169077 00169078 00169079 00169080 001469084 
00169086 00169087 00169088 00169089 00169090 00169091 00469092 
00169097 00169098 00169099 00169100 00422310 00422190 *00422275« 
00604000 00641000 *00694800% 00693500 %0069 3600%%00706 300%%00723640x 
00755000 00766000 00781000 00783000 
01005000 01018025 01018100 01018110 01018130 +*01018280%*01018355* 01018370 
014023350 04024957 
02052000 02053000 02054040 02083000 02086000 07086500 02088000 
02262775 
02273500 


#92286100%*02286400% 02286700 *«02287000% 02287000 
*02364810% 02364811 


02364820 


02364860 


02364890 


02287300 


02289450 


00169064 
00169072 
00169083 
00169094 
00598000 


400793720 
+00792000%*00794000x 00794400 *00916240*% 00946340 *00916400% 


01018375 
02095000 


02373045 *02373100%*023732700% 02374053 


00169062 
00169073 
90169084 
00169095 
00598050 
00734000 


01019000 *01020000« 
04050000 +014085500%%01661000%%04702000% 01728000 #04730000%%0 1826000 «#0 1960000%%02034000% 


02177000 


02374055 


00169063 
00169074 
001469085 
00169096 
00598120 
00739400 
00949100 


02217000 


*02263900%%02264800 *%02269 300 %%02269600%*022699004402270200% «02270500 «02272300 %*02272600%%02273500% 
*02273800% 02273800 *022741004%02274700%402275 100%%02975300%%02275600% 02275600 *02275900««02276500* 
*92276800 «02277 100 «02277400 4402277700 *%02279200 % x0 2280 100% 402282900 * 40228 3200 x0 2285200 %%0 2285500 %%02285800 « 
02289500 «02289600**02363100%«02364330% 


02374110 


O 
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C 
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*02374440%*09374300% 02374580 *09374580«%02374680% 02380000 


02389200 02389300 02389400 «02389600x 02395000 
02401220 «02401940% 02409200 02409300 02409400 
*92446200% 024149000 «02419050 ««02420000% 02420015 
02496010 *02431000%%02431005%*02434 100% 02434400 
02506010 02655000 02656100 .02662000 02707000 
*03129000x 03139000 03487400 03204000 03709000 
«93385 100%«03385900% 03385350 *033853504403385355% 
03894050 03894060 03894100 04076050 041444200 
*04492100% 04493450 *£04493300% 04500100 04500700 
04617000 *04619050%%04619080% 04667500 04669500 
04769500 *04815000% 04816000 04841100 04845100 
04957050 *04957400% 05032000 05067000 05233000 
05468400 *05486,00%«05497100% 05612300 05644000 
SAVINS 
0069 *01655100% 
*01683100% 04684700 *04695 100% 04696100 
SAVIP 
0424 *04025000* 
#04063000%* 04074;00 04395000 04396000 
SAVIT 
0115 #03851000« 
*#03853000%x 03948000 03956000 03967000 
SAVIT 
0113 *03639000« 
*03644000% 03689000 03785000 
SAVIT 
0121 *04025000% 
*04062000% 04208100 04399000 
SAVUASTLP 
01434 *04655500x 
*04726000* 04738500 
SAVTOTAL, 
0134 *04656000% 
*04689500% 046929000 


02380100 023801425 02380210 02380220 «02380240 
09396100 «02396200% 024013000 024014100 02401125 02401210 
*02409600% 02444475 02414200 024144225 02435000 02416100 
02420020 02420053 «024270090% 02420100 02421000 02426000 
02432000 02432100 024913600 02492450 02492550 02493200 
02708100 027143000 02818010 02827100 *02827100*« 02939000 
03244000 03251000 03363200 03366200 *03384000«+03385000« 
03385355 03385360 «033854008 03385400 *03569000%403571300« 
04124200 04429400 04484050 04406030 +*04408400*e 04415000 
04503125 04509050 04513000 04516100 04584000 04604060 
04670100 04671500 04681020 04681030 04767500 04768000 
*04850000«*«04850100%*04883300% 04883650 04928000 04956010 
05233000 05292000 *05365000**«05367000* 05433000 05467400 
05615000 05618100 
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Nd 


C) 


O 
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SBVEXP 
0002 *00290000« 
03922000 03927000 
$B2 
0002 «00329000» 
04240000 04241000 
SCAN 
0006 *00420000* 
00625000 00627000 
04932000 01419349000 
*02446000% 029750900 
03983000 03990440 
04404200 04404950 
04493300 04496000 
04572000 04619030 
04859000 04864000 
04946000 04930000 
05937000 05051000 
05118000 05121000 
05936000 05242000 
05300280 05300300 
05331000 05333000 
05435000 05443000 
05529280 05529400 
05535250 05535440 
SCAN 
0078 «02245600 
022948900 02249500 
SCANENTFR 
0009 *00155110™ 
*02804000%%*0 2862400 
SCANING 
0080 *029333400* 
023335900 0333590 
02372050 02382300 
SCANX 
008, *02495000% 
02510000 02621100 


04285000 


00630000 
01935000 
03670000 
03990180 
04404650 
04512000 
04771000 
04883400 
04945000 
05067230 
05140000 
05246000 
05304000 
05356000 
05444000 
05529430 
05535595 


02262700 


04068000 


02364380 
02404300 


02732000 


04288000 


01827000 
01939000 
03673200 
04070000 
04404660 
04514000 
04790000 
04883550 
04968000 
05067390 
05143000 
05255000 
05308000 
05358000 
05459000 
05529460 
05538000 


02263300 


05364385 
02414290 


02770000 


01829000 
01941000 
03818000 
04076000 
044,4000 
04598000 
04798000 
04883600 
049741000 
05071000 
05147000 
05260000 
053143300 
05373000 
05470000 
05599490 
05549000 


02267500 


02364385 
02449250 


02776000 


01847000 
01943000 
03819000 
04121000 
04415090 
04534000 
04799000 
04905000 
04973000 
05072000 
05152000 
05263000 
05314000 
05376000 
05475000 
05529590 
05551000 


09268400 


02364490 


01855000 
01948000 
03839000 
041427000 
04445110 
04544000 
04802000 
04908000 
04992000 
05097000 
05158000 
05283000 
05315300 
05378000 
05480040 
05529630 
05553000 


0290754160 


05364460 


01900000 
02152000 
03862000 
04484000 
04415420 
04550000 
04803000 
04942000 
05013000 
05098000 
05165000 
05295000 
05317300 
05381000 
05493000 
05529820 
05571000 


02288500 


029364500 


01943500 
02154000 
03866000 
04194000 
04445300 
04556000 
046843000 
04942200 
05048000 
05105000 
05173000 
05297500 
05318200 
05383000 
05499000 
05535080 
05598000 


02364580 


01925000 
02241000 
03870000 
04197000 
04419000 
04561000 
04850000 
04942400 
05020000 
05109000 
05177200 
053001484 
05325000 
05386000 
05529215 
05535180 


02364620 


01926000 
02245600 
03975000 
04388000 
04424000 
04565000 
04853000 
04945000 
05028000 
05114000 
05181000 
05300230 
05328000 
05434000 
05529260 
05535220 


02371004 


\ 


O 


SCN 
0002 *00174000x 
*#92184000%«02507000%+*02508000e402509000%%02585000% 02585000 02598000 *02599000%%02601000% 02622000 *02676000« 
*92723000%«02746000e«02764000%e 02764000 *02764000% 02771000 *02775000% 02781000 *£02781000*% 02781000 «02781000 
02806000 *«02819000%*02821000%+*02822000%%02825000%+402827000%*02828000«*02831000«*02837000%*02838000«*«02839000% 
*02840000%«*0 284 1000%«02849000%«02854000e 029745000 *02946000% 03563920 03563940 03563950 *03570000**04765000% 
#04770000e 04771000 *05067390%*#05529260%«05599400% 
SCRAM 
0432 «04488000 
*#04498100* 04563000 04576000 
SEARCH 
0006 *00399000 
00736000 00738000 00739400 04195000 04588000 *04735000%*01744000% 04742000 04790000 01984000 027568000 
05862400 03584000 03590000 04678000 04773050 04870000 04982000 
SEARCH 
0043 #014195000x 
04205000 04229000 
SEFNADOUB 
0002 *00169100% 
00697800 00693500 00693600 034085500 
SEG 
0006 «01025000 
01041000 01050000 
SEG 
0057 «01525000 
*01537000« 01542000 01543000 
SEG 
0117 *03971000» 
*03986000*e 03987000 03988000 
SEGDIC 
0090 *02980000x 


O 


) 


03314000 03321000 
SEGEND 
0004 *00334000x 
01005000 01050000 


SEGLS 
0090 «02993000 


SEGMENT 
0006 «00421000 


00629000 «00937000 


SEGMENTSTART 
0006 *00778000« 


00795000 01700000 
SeaMNr 
0090 *02988000% 
*03343000% 03314000 
SEGNO 
0009 «00245000 
00755000 00944000 
03252000 03939000 
SEGOVE 
0006 «00395000 
00396000 00930000 
01399000 01411000 


01787000 02278300 


SEGOVFLAG 
0009 *00169070x* 


00783000 04018025 


SEGPTOG 
0009 «00169078» 


03326000 


01022000 


02087000 


03345000 


00932000 
03986000 


01269000 
01423000 
03990345 


91021957 


03327000 


01699000 


03128000 


03317000 


00975000 
04433000 


014295000 
01434000 
03990549 


01664000 


03351000 


03289000 


05428000 


03321000 +*03325000x 


00995500 


01355000 
01527000 
04415040 


01702000 


05215000 


05151000 


01537000 


*04434000% 04444000 


01361000 
01563000 
04518200 


05532000 


03326000 


01589010 


01371000 
01566000 
04613000 


03327000 


01589020 


01388000 
01575000 
04866100 


01799000 03801000 03217000 


01393000 01395000 01397000 
01578000 *01653000x 01703000 
04920200 05345000 05510000 


OC) 


014048375 

SEGSTRT 
0004 *00333000* 
00781000 


SEGSW 
0002 «00169085 


00794400 


SEGSWFIXED 
0002 «00169088 


02275600 
SEGSZ¢ 
0002 ¥00355000« 
03240000 
SEGSZF 
0002 +¥00354000x 
03310000 


SEGTYP 
0006 «00940000 


00949000 


SEGUS 
009% «02991000 


03244000 
SEGO 
0090 *02981000% 


03291000 
03354000 


SEM 
0002 *00303000« 


00625000 
04566000 


01949000 


010241350 


02431000 


03276000 


03331000 


01018370 


03251000 


03299900 
03355000 


01948000 
04571000 


09270200 


02275600 


03385400 


03305000 


01919000 


03303000 
03363150 


02193000 
04770000 


02286100 


02432100 


01019100 


03338000 
03363700 


02199000 
04843000 


03571300 


03363200 


03339000 
03364000 


02240000 
04909000 


03385350 


03339100 


022471000 
04946400 


03385400 


03348000 


09897000 
04917000 


03350000 


02828000 
05028010 


03351000 


02949000 
05038000 


03352000 


04493000 
05051100 


03353000 


04562000 
05097000 


© 


O 


O 
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05197000 05300990 05300300 05460000 05464000 05474000 05493000 -05500000 05529635 05529820 05538000 


05595000 
SEMtIC 
01434 «04657000 
04748400 
SENSF 
0005 *00908135* 
#02230220% 
SENSPDEUNF 
0002 *00208130x 
03162005 
SEQ 
0006 «0070601 0% 
00706075 


SEQBASE 
0002 «00170000 


*02283400% 
*O024294000% 


SF QCHK 
0006 «023271000 


02330000 
02416200 


SEQERR 
0080 *02362300% 
02362850 


SEQERRCT 
0002 «00147000 


05598000 


04765000 


00706085 


02283700 
02424000 


02331000 
02417000 


02420040 


04766500 *04770500% 


00706120 


02364830 


02364800 
02419000 


00706150 


02364840 *02364840% 02374053 


02373045 02374500 02387000 
02420020 


02420015 *02420015**02420080« 02420080 05617000 05618000 


SEQERRORS 
0002 *00169065x 


00422275 00604000 00611000 02054010 02420000 02420090 


02389400 


02396100 


02426010 


02409400 *02490057% 02420057 


02407000 


02411000 


02414380 


02423000 


02416100 
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SEQtNER 
0002 «00170000 


402283400 


SEQNUM 
0078 «02254600 


02259100 
SEQTO4, 
0009 «00169064» 
02272600 
SET 
0078 «02761800 
*022767500% 


SETLINK . 
0006 «05063600 
05063730 
SETPNT 
0006 *00723140 
00723325 
SETUPSTACK 
0006 #00916900% 
00926000 
Sebecc 
0090 «03005000 
03328000 


SGLCF 
0090 *03004000* 


SGN 


02284000 


02259700 


02283900 


02272900 


05089050 


00723670 


00965000 


*02284600% 02284600 


02281300 


02364890 


05272050 


00916300 


00973000 


02283700 


09374053 


00982000 


02364840 


02284000 


02389400 


02420057 


02409400 


02424000 


09420053 


02421000 


~— 


S 


0070 


SGNO 
0006 


SGNOC 
0002 


SGNOF 
0002 


SGTYP¢c 
0090 


SGTYPF 
0090 


SHOW 
0064 


SHX 
0002 


*01819000x 


*01829000x* 


*01055000% 
01063000 


#00351000« 


01908000 


*00350000* 


03313000 


*03000000 


*02999000« 


*01676100*% 


*01631100* 


#00225000 
00226000 


SINGLE TOG 


0002 


*00169069% 
00422110 


SINGLFTOG 


0114 


*03791000x 
*03799500x 


01852000 *01926000* 01934000 *01935000*% 01938000 


01065000 


01044900 


03325000 


01640000 


00790000 


00422490 


03834000 


01063000 


01670000 


02269600 


03239000 


01737000 


02274700 


03275000 


01754000 


02287300 


03304000 


014761000 


033684000 


039904128 


03791000 


05066005 
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SINGLETOG x 
0145 *05066005« 


*05067275* 05069000 


SINX 
0090 «03034000 


S1Z 
0070 «01817000« 


01844100 01851400 *01851400% 04857400 «01857100 01869000 01880000 01885000 01891000 01898000 %01898000« 
*01913050% 01913050 01930000 «01942100% 
SIZE 
0002 *00256000x 
00700000 00721000 00772000 04083000 %01084000x 01097000 01162000 01634000 01639000 041646000 01708000 
03210000 04415700 04415210 04505200 04506000 05079900 05080000 05455000 05458600 
SIZE 
0006 «02434000 
02444000 
SIZE 
0090 «03067000 
039071000 03075000 03082000 
SKP 
0006 *01262000« 
01262000 01264000 01364010 01599000 01625000 
SKP 
0048 «01255000 
01255000 01257000 
SKP 
0086 «02638000 


02639000 02642000 


@) 


C) 


SKP 
0087 


SL 
0134 


SLASH 
0002 


SLASH 
0134 


SLCNT 
0134 


SLOWYV 
00090 


SND 
00090 


SNGL 
0118 


SP 
0150 


*02683000*% 


02684000 02688000 02689000 


*04655100* 


04681140 *04744100*% 04753500 


*¥00302000« 


01856000 01944000 01948000 
04883659 04912200 04930000 


*04649500% 


04687560 


*04655500x 
04687520 *04687530% 04687530 


«00208110 


02230115 02230420 02230140 


#00 395000 


00764280 00993000 03990480 


*03990040% 


*03990480% 03990520 


*05220000% 
*05223000% 05224000 05227000 


SPCLBIN2DEC 


0006 


*01261100% 


02196000 
05097000 


04687560 


04928040 


02952000 
05172000 


04687600 *04687650**04744000% 


04341000 


04090000 
05174000 


04318000 


04133000 
05179000 


04349040 


04567000 
05434000 


04558000 


04577000 
05443000 


04649500 
05460000 


04883000 
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01261140 


SPDEUN 
0090 *02988910* 
03162005 

SPNFUN 
0090 «03042000 


03043000 


SPnF 
‘0002 *00208140x 


*02230130%*02230140« 


SPFC 
0084 *02451000« 


02465000 


SPECCHAR 
0121 «04029000 


04109000 
SPIN 
0077 «02149000 
*02274000% 
SPLINK 
0002 «00155000% 


00764040 
04503000 
05221000 
05529720 


SPLIT 
0006 ¥03621000% 
03631000 
SPP 
0070 «01824000 


*01875000 


01261150 


03203000 


03051200 


02473000 


04114400 


02239000 


04773030 
05222000 


05532000 +*05534000% 


03743000 


01913500 


04604030 


04172000 *«04188000% 


*00786000% 00949100 


04846140 
05223000 


04157000 


00950000 
04946000 
05294000 
05535230 


00959000 
04964400 
05432000 
05535240 


00972000 


00975000 


010074100 


05128000 *05132000« 05151000 


05499100 


05503000 


*05579000% 05579000 


05529640 
05612100 


01018135 


05529660 


04500100 


*05153000*% 05212005 


05529680 


04500340 
05214000 
05529690 


C) 


C) 


Cs 
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Cy 


SRI7 
0077 


$$ 
0113 


SSF 
0002 


SSN 
0002 


SSNM 
0002 


SSP 
0009 


STACK 
0124 


*02172000% 
02173000 


*03640000« 
03664100 


*#00330000% 


03132000 


*00326000* 
01384000 


*00169200% 
00169240 
00692020 


02380125 
02420040 


*00396000* 


03990230 


*04091000% 
04066000 


STACKHEAD 


0005 


STAR 
0009 


*00096000* 
00790000 


*00302000* 
01896000 


02175000 


03665000 


04404500 


00169920 
00692030 
02380;75 
02420050 


02195000 


03689000 


04415021 


00598040 
00692040 
02380200 
02420060 


02200000 


04848000 


00598180 
00706260 
02380300 
02420120 


04067000 *04382000% 04392000 


04671000 


02946000 


01737000 


04493400 


04754000 ~ 


04883200 


04856000 


00599500 
00706380 
02401125 
02476030 


01761000 


04948000 


04863000 


00691510 
00794400 
02401175 
02432300 


01762000 


05067210 


04912200 


00691520 
02263900 
02401200 
033747100 


039904128 


05116000 


05318400 


00691530 
02279300 
02401300 
03374200 


05117100 


05347000 


00691540 
02364360 
024149000 
05649050 


05529270 


05535510 


00691550 
02364560 
02420011 


00692010 
02364800 
02420020 
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STAR 
0006 *00723140* 


00723150 


STATEMENT 
0006 +*05136000% 


05366000 +*05536000% 


STD 
0002 «00326000 
007291000 
01460000 
03134000 
04989005 
04509400 
05490000 
STMTFUN 
0006 *04959000« 
05007000 
STMTFUNTD 
0002 «00278000« 
04413000 
STMTFUNREF 


0006 «03969000 
03990000 
STN 
0002 «00327000 
01459000 
STOP 
0006 *05485000« 
05494000 


STOPC 
0090 *03029000* 


00723265 


008142400 
01465000 
03139000 
04292040 
04510000 
05506000 


05017050 


04965400 


04114700 


01499000 


05571000 


00723295 


05603000 


00830000 
01470000 
03665400 
04341000 
04546350 
05517000 


04999000 


01508000 


05612000 


00846000 
01475000 
03990545 
04348000 
04548000 


03665400 


00848000 
01490000 
04078030 
04379040 
04520000 


05057000 


00856000 
01495000 
04028040 
04404625 
04545000 


00856300 
01500000 
04235000 
044140000 
04925000 


00877000 
01504000 
04245300 
044145220 
04979000 


00925040 
01509000 
04245400 
04415230 
05036000 


00981000 
01514000 
04260040 
044145240 
05041200 


01454000 
01732000 
04282040 
044645260 
05146000 
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03316000 


STOPF 
0090 *03098000 


STOR 
0084 *02557100« 


*02571000x 
STORECHAR 
0134 *£04673500% 
04675500 
STOSFO 
0006 «00706010 
00706260 


STR 
0134 *04656600% 


04687580 *04727600«% 


STRCNT 
0086 *02633000« 


02636000 
STRINGARRAY 
0002 «00202000 
01845000 
04177500 
STRINGF 
0134 *04656500« 
04681020 
STRINGSTZE 
0002 «00203000« 


01832000 
02664000 


02572000 *02591000% 02592000 


04684900 


00706380 


02637000 


01851200 
O4177575 


04681400 


01842000 
02669000 


04695500 


04747200 


02657000 


02657000 
04177700 


04687540 


01844000 
02670000 


02705000 


02706000 


04688000 *04688000%«x04688500% 04694500 


*04760900*«04760940% 
02669000 
02663000 02669000 
01846000 


02714000 


04767500 


02721000 


04768000 


01846100 *02649000* 02653000 *02654000% 02657000 


*02670000#«02700000*% 02703000 +*02704000% 02705000 


02706000 


03884000 


04771500 


02663000 
02714000 


03890000 


*02664000« 
*02716000* 
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02716000 


STRINGTYPE 
00059 «00296000 


01832000 
STRINGWORD 
0087 *02683000* 


02697000 


STRT 
0080 «02363000 


02364000 
02416300 

STRTA 
0080 *02362950% 


02375600 


STRTSFG 
0002 *00182000« 


02718000 *02718000*% 02719000 03879000 03890000 04177500 


01844000 0485;000 02645000 02675000 07727000 03875000 


02699000 02706000 02744000 


02364910 02367000 02373200 *02375000* 02385000 02388000 
02419950 02419300 


00962000 *00963000% 03265000 03285000 


STYPC 
0002 «00340000 


01040000 


STYPF 
0009 «00339000« 


SUB 
0002 *003276000* 


03661000 
04404450 

SURC 
0006 «00723140 


00723150 


03237000 03273000 03302000 


03734000 03766000 03990340 04277000 04282000 04289000 
05516000 05522000 


00723930 00942000 


04177575 


04176000 


02396200 


04289007 


02408000 


04290000 


02408500 


04291000 


02414382 


04292000 
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SURCLASS 
0002 *00247000% 


00711000 
01078460 
*93565000% 
03937000 
4¥905069400% 
05529790 


SUBREF 
0006 «04405000 
04428000 
SUBRID 
0002 +«00285000* 
00861000 
05533000 
SUBROUTINE 
0006 «05530000 
05535000 
SUBSCRIPTS 
0006 «03632000« 
*03785100% 
SURSVAR 
0002 «00288000« 
03878000 
SUCH 
0439 *04784000« 
04840000 
SUCHTOG 
0139 «04785000 


*#04850000x 


SUM 


00720000 
01084000 
03601000 
03940000 
05107050 


05159000 


00862000 


05572000 


03787000 


03902000 


04843000 


04907000 


00723680 
01085500 


*03601000 


03976000 
05131000 


01918200 


04128000 


03903000 


*04850000% 


04913000 


00768000 
01135000 
03606000 
039901292 
05227000 


03214000 


04513190 


03930000 


00773100 00854100 
01165000 04344000 
*93606000% 03703000 
04008000 04075000 
05267100 05506000 
03614000 03616000 
05019000 

03935000 04130000 


00856100 
04323000 
03747000 
04123000 
05529680 


03894050 


04133000 


00894000 
01335000 
03772000 
04458000 
05529690 


03894400 


00895000 
01443000 
03804000 
04536000 
05529700 


03942000 


00897000 00916320 
01988000 «03564000» 
03830000 03834000 
04983000 04993000 
05529760 05529780 
03915000 04417000 


mm 
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© 
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O 


0113 «03636000 


*03674000%«03691000% 03691000 *03699000% 03699000 03710000 *03710000% 03714000 *03714000* 03721000 03733000 
03734000 03737000 03740000 03760000 03765000 03766000 03768000 
SUPFRMAXCOM 
0002 «00714100 
00646200 00646600 *03571100% 05185000 05238000 


SWARYCT 


0002 *00147500« 


%00691500% 00694450 *01095500x 


SYL 
0043 *014193000* 
#0 4208000%*01249000%*01297000* 04233000 
SYMBOL 
0002 *00498000« 
02152000 02154000 02512000 02568000 02570000 *02576000« 02577000 02587000 02583000 02593000 «02596000x 
02597000 *02721000%402819000+4%02820000%%«02822000%%02825000%02827000% 02827100 *02828000%%02830000%%02831000% 
02832000 «02837000 «%02838000%+02839000%%02840000%%02841000%e02849000««02850000% 02858000 02862000 02862400 
#02914000« 02925400 02944000 02965000 02972000 02974000 
$2 
0006 «01025000 
01034000 #04034000% 01035000 04039000 01044000 04046000 04051000 
4 
0006 «*01625000« 
01633000 01637000 014638000 01648000 01649000 
2 
0006 +*00939000x 
+#00998000% 01004000 01007000 04044000 01047000 04021000 
$7 
0037 *04030000x 
01030000 04032000 01954000 04055000 
$2 
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c 


0086 


$Z 
0086 


$Z 
0087 


$2 
0090 


0002 


0006 


0006 


T 
0006 


*02633000 


02633000 


*02638000* 
02639000 


*02683000% 
02684000 


*03062000% 
03062000 


*00151000* 


00650000 
00940000 
01319000 
02021000 
02230220 


02636000 


02642000 


02690000 


03064000 


00706015 
00915440 
01320n00 
02159000 
02230300 


00725000 *00846000* 00848000 *00856000* 


00945000 


01028000 


*01325000«% 01327000 


*021860004%«02225000%402226000««02227000x 


01071250 
01585000 


02237000 *02237000% 02237000 


#03123000%*03161000x 03162030 
#03880000% 03881000 «03897000% 03898000 «03937000% 03938000 
04021000 £04415150%*04415200% 04415200 
04786000 *04982000% 04983000 
05191000 «05191000%«05196000* 05196000 


03994000 
04773020 


05457000 


*00647000x 
00648000 


*00706015% 


00706065 


*00401000% 


05497000 


00649000 


00706090 


00651000 


03162060 *03288000«+03689000x 


04984000 *04964000%#05023000% 05407050 +*05107050%*05183000% 


01176000 
01655000 


02436000 


04415210 


00856300 
01194000 
01736000 
02229000 
02512000 
03691000 
03941000 
04431000 


*00895000* 
*01280000% 
01744000 
*02230030% 
03069000 
*03702000% 
*03963000« 


00896000 


00898000 +*00910000% 


01283000 *01311000% 01317000 


01779000 
02230050 
03090000 
03707000 
03963000 


01963000 
02230130 
*03106125% 
03742000 
03964000 


04487000 *04585000«% 04591000 


05224000 «05224000%*05297000% 05297300 *05446000% 05449000 


01995000 
02230140 
03106150 
03793000 
03964500 
04655000 
05190000 
05456000 
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0006 


0006 


0006 


0006 


0006 


0024 


0023 


0034 


0030 


*01176000% 
01180000 


*01262000* 
01264000 


01437000 
01743000 


#*02321000x 
02323000 


*02436000« 


02442000 


*03573000% 
03584000 


*#00653000* 


*00658000« 


*00650000% 


00653000 «00677000% 
00691950 «00691950% 


*009451440* 


00945240 
*00975700% 


*00725000« 
*00744000« 


01181000 


01267000 
01520000 
01758000 


02443000 


03584000 


00661000 


0094580 %009;5420% 


00915700 


00744000 


01182000 


01273000 
01558000 
01768000 


02444000 


03590000 


00662000 


00680000 
00691950 


00945720 


01195000 


04303000 
01570000 
01778000 


03599000 


00674000 


00685000 
00692000 


00945440 
00945760 


01353000 
01582000 


03593000 


*00674000% 


01359000 
01599000 


03600000 


01364010 
01612000 


03602000 


01365000 
01624000 


03607000 


01378000 
01625000 


00687000 *00688000% 00688000 *00691000*% 00691900 


*00700000% 


00701000 


‘ 


00702100 


00945460 *00945560+**009145580% 009745580 
00945800 «00915960% 00916020 


00945780 


00746000 *00746000*% 00748000 *00763000* 00763000 


00765000 


00915600 
00916040 


00775000 *00775000* 


01404000 
01704000 


01428000 
01735000 


*00691900% 00691900 


00945660 00915680 


00946080 
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0037 


0036 


0036 


0037 


0046 


0040 


0043 


0058 


0065 


0069 


*01028000% 
*01035000*« 01050000 


*00944000%« 


00944000 01024000 01025000 


*00945000% 


*00972000%+00989000% 00991000 «00991000%«01001000% 01005000 


*01030000» 
01032000 01054000 01055000 


#01237000% 
01239000 


#01074250% 
01082000 01085900 03095000 04412000 01144000 04122000 


*#01194000% 


*04217000% 01221000 01222000 


«01585000 


*01588000%*01588400% 01588200 01589000 01589010 01590000 


*01744000% 
*01745000% 01746000 01747000 01748000 %01748000x 01749000 


*01779000« 


*01790000% 01791000 01795000 01800000 01802000 *01811000« 


01122500 


01122600 
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0062 *01655000 


01656000 01657000 *01662500% 01662700 «01663000% 04664000 *01666000*% 01667000 *01669000**01671{000% 01672000 
01673000 01677000 01680000 01687000 «01689000* 04693000 *01693000* 01695000 


0064 *01736000x 


*04737000% 04738000 04739000 04740000 «*«01740000* 04740000 04741000 


0074 *02021000« 
02024000 


0071 *01963000« 
*01973000% 01974000 01975000 *01975000m 01975000 01976000 01977000 01977100 «01985000* 01985000 


0072 *01995000« 
%*02001000%%*02004000% 02005000 02006000 02007000 «02007000% 02008000 02011000 


0077 «02159000 
02163000 


008s «09489900 
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Ca 


02489200 07489600 09496000 07497000 

008, *025127000% 
02568000 09570000 07576000 07577000 02582000 02607000 02631000 
02730000 02819n00 02820000 02822000 02825000 02831000 02832000 
02837000 07838000 02839000 02840000 02841000 02862400 02914000 
02925100 02944000 02965000 02972000 02974000 

0080 *02343000« 
02346000 
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© 
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O 


0080 


0085 


0086 


0085 


0085 


0088 


0092 


0090 


0090 


#02362010 
02362030 023629050 02362120 02362150 02362190 


*02615000« 


02615000 02618000 


*02631000% 
*02646000* 09655000 07657000 07663000 02666000 *09666000* 09671000 *026714000% 


*02608000% 
02608000 02610000 


*02607000x 
*02620000%*02620200% 02620200 02621000 02622100 *02622100* 02622200 02623100 


*02730000x 


*02731000%%«02733000% 02734000 02735000 02736000 02738000 02739000 02745000 02763000 *02763000« 02778100 
02780000 02788000 


*03069000% 


*03072000« 03073000 


*03062000* 


03964000 03066000 03067000 


*03090000% 


03094000 04051000 
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0092 


0114 


0120 


0121 


0121 


0136 


0134 


0131 


0138 


*03070000% 
03070000 


*03793000« 


*03802100% 


403994000» 
*04011000% 


*04051000% 


04058000 


*040291000% 
*04082000% 


03803000 


04015000 


04083000 


03804000 03805000 *«03805000%**«03810010% 03815000 


04085000 04089000 04097000 «04139000% 04740000 04149000 04146000 *04224000%«%04225000% 


*04296000%*04227000«*04228000%*04229000% 04245000 04245300 04245400 04245500 «04245500% 04249000 


*04663000« 
04663000 


*04655000« 


04681000 
04688000 


*04431000% 
*04440000% 


*04773020% 


*04773050%*04773060% 


04664000 


046814002 
04695500 


04442000 


04681004 04684010 £04681010* 04681030 04681060 04684420 04681140 04684000 04687530 
04707000 04708500 04708520 04708525 04730120 04730425 04730130 04730137 04744500 


04448000 *«04462000*% 04465000 


04773080 04773340 04773150 *04773150**04773160*% 04773160 


OC) £)- 9 


C) 


C3 


0132 


0139 


0156 


TA 
0078 


TA 
0078 


TA 
0080 


TAPE 
0006 


TAPETOG 
0002 


TB 
0002 


*04487000* 


*904500600% 04501000 *04503100*% 04503200 


04532000 


*04786000* 


*04885000«*04886100% 04890000 


*04657500« 


04658000 


*05497000« 
*05503000» 


*02254900% 
02256100 


*02249800x 
02250500 


*02333160% 


02333400 


*00389000x« 


003914000 


*00168400« 


05506000 


02257600 


02251900 


02333420 


02367000 


02257900 


02252900 


02333460 


02383040 


04899000 


02259400 


02253100 


02386000 


04505200 


02396000 


04506000 


02402000 


«022657 00#%02272510%#02272560« 02365000 *«02373030* 02383010 


*00184000» 
02254900 


02367000 


02386000 


02387000 


02395000 


02396000 


04509000 *04509450* 04509200 


02416000 


02385000 


02402000 


03366100 


02407000 


04509250 *04531000% 


C3 


© 


‘eo 


'@) 


C} 


02416200 
TB 
0078 *02254900« 
02757300 


TEMPNEXT 
0159 «05537100 


*05540000% 

TEN 
0002 «00210000 
02754000 


TEST 
0002 «00228000 


*#01976000« 
05591000 

TEST 
0133 +*04598000* 
*046014000% 


THEBIGGEST 
0090 *029983000% 


031572000 *03152000# 


THRU 
0002 *00316000% 
00497190 
TIMETOG 


0002 «00169066 
02276800 
TIPE 
0002 +«00176500« 
01019160 


02417000 


02257900 


05548000 


02758000 


01978000 


04604010 


00422200 


05614000 


01019470 


02491700 


02259100 


05552000 


02791000 


01980000 


04604095 


03260000 


02571000 


01985000 


02492200 


02259400 


05560000 


02792000 


04598000 


02597000 


02862000 


02492600 


05561000 


02796000 


*04604030x 04604040 


029391400 


04668000 


05568000 


02797000 


*94868000*« 04870000 


04604050 


03433100 


04668600 


05578100 


02870000 


04871000 


05529475 


04670500 


02874000 


048673000 *05584000% 05590000 405590000 


05529570 


03108000 


05529680 


03438000 


05529760 


O 


TIS 
0002 «00359000 


00376000 
TIX 
0141 *04964000x 
04993510 


™ 
0121 «04028010 


00380000 


04993570 *04993595« 


00389000 


*904414520% 04115000 £04260000% 04260010 404261000%%04268000%%04270000%%0427 100040428 1000Ke04282000% 042820410 


*04289000« 


TMPNXT 
0006 *05479000» 


*05480020« 
TN 
0034 «00975140 
00915220 


00945720 
00916340 


ADDR 
0002 *00268000x 


00695000 
05048000 


TOADINFO 
0002 «00273000 


00744000 


TOADS 
0002 «00265000 


00672000 
TORASF 

0002 «00270000 

00670000 


04289005 


00915280 
00945760 


0144908000 
05094000 


02188000 


05535240 


01610000 


04289007 £04291000% 04291010 *04292000% 04292010 *04310000%*04319000% 04319010 
#04320000«*04338000%404339000% 


*00915440% 


00945780 


01795000 


05093000 


03836000 


01680000 


00945480 %00945480%%00945560%%00945580x 
%00945960% 00916000 


00915800 


01844000 


05186200 


03954000 


03363700 


02187000 
05238300 


03990108 


03607100 


04435000 
05274000 


04009000 


04876000 


009146020 


04527000 


05276000 


04475000 


04893000 


04319020 


00945600 00945620 *00945680%«00915700« 


00916080 *00946160* 009146300 00916320 
04587000 04773060 04773140 04999000 
05196000 

04902000 05000000 05228000 


© 


Ci 


O 


QO 


. 


TOCE 
0002 *00261000% 


00672000 


TOCLASS 
0002 «*«00263000x 


00695000 
03605000 
04604040 


04986000 
05186200 


TOCNTRL 
0134 «04652500 
04750000 
TOCODF 
0134 «04650000x% 
04687560 
TOnNFCrMaL 
0134 *«04652000« 
04740000 
TOFQ 
0002 «00263100 
00672000 
TOFORMAL 
0009 «002966000 
04446000 


TOG 
0077 «02440000% 


*022907000%+0292090004 «0224 1000%*022 19000 % «0274 3000%*02244100%402914500%09915000% 02216000 *029947250*«+02217275% 


021881400 


04134000 
03893000 
04678500 
04987400 
05194000 


04690000 


04759000 


05268000 


04604040 


01588100 
03900000 
04679400 
04999000 
05238300 


04719500 


05270500 


05085000 


014588400 
03909000 
04773060 
05017020 
05285000 


04726530 


05276000 


05093000 


01841000 
03975000 
04773475 
05025200 
05391200 


04732000 


05186200 


01812100 
03990116 
04800100 
05029400 
05397200 


04747400 


*02217350% 02217450 «02225000*«02226000%402227000% 02228000 


TOG 
0113 *03638000« 


*03675000% 


03692000 


03696000 *03697000% 03705000 


01977100 
03990134 
04871000 
05107100 
05403200 


04758500 


02187000 
04015000 
04873000 
05133000 
05437000 


03712000 *03717000% 03717000 


02188100 
04480000 
04883350 
05141500 
05442500 


03722000 


03386000 
04493200 
04900000 
05168100 
05521200 


03731000 


03586000 
04588000 
049654100 
05177100 


03760000 


03763000 
TOLASTC 
0002 *00262100« 
05085000 05268000 
TOLINK 
0002 *00269000% 
04435000 04651500 05085000 05268000 
TOLINK 
0134 «04651500 
04739500 
TONEXTRA 
0009 *00972000* 
03836000 03953000 03990108 040090090 04474000 05000000 05017030 
TONUM 
0434 «04653000» 
04749800 
TOO 
0084 «02540000 
02546000 
TOP 
0002 *00330010« 
03990555 
TORFLADN 
0002 «00974000» 
05268000 
TOREPFAT 
0434 *04650500% 


04687560 04692000 04749500 04726500 04776530 04739500 04747600 04759000 


TOs 


O 


© 


CO) 


C} 


Cael 


Co 


yo 


Oye or. 
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0000 *«00360000* 
00376000 00379000 00388000 
TOSEGNO 
0002 *00262000x 


00914000 00956000 00966000 00980000 
04773070 04773340 04816136 04923000 


TOSTGN 
0134 «04653500 


04732500 
TOSIZF 
0002 «00271000 
00696100 00702400 01136000 03106150 
TOSUBCL 
0000 *00264000* 
03893000 03904n00 03990447 04045000 
05227000 052774000 05529940 05529340 
TOTAL 
0134 *04655500* 
*04680500% 04684000 *04685500% 04685500 
04693000 *04693000% 04695500 04697500 


04732000 04739500 04740430 04747400 
*94766000% 04766500 *04766500% 04772600 


TOTYPr ; 
0002 «00967000 
04986000 04998000 05080500 05132000 
TOWTDTH 
0434 «04651000« 
04796000 04732500 04747400 04749400 
TP 
0006 «00391000 


02367000 09383040 02386000 027396000 


00984000 03987000 03988000 04415090 04446000 
04998000 05041400 05041700 05048000 


05079400 05080000 


04987000 04987100 05069200 05080500 05091000 


04686000 04687560 04687590 *04687600*« 04687600 

*04697500% 04698000 04719500 04726000 04776530 
04748800 *«04749400% 04749400 *«04749800% 04749800 
04772615 


05133000 05227000 


04758500 


02402000 07416000 


04527000 


05432000 


04689500 
04726540 
04758500 


04549000 


05434000 


04690000 
*047 26540 « 
04766000 


TPHASFE 
0134 *04648000% 


04746050 04762500 
TRACEBACK 
0006 *01599000x 
01611000 04639000 01647000 04657000 
TRANSFER 
0006 *00706525« 
00706800 00915420 
TRB 
0002 *00328000« . 
00764240 01364035 04546300 
TS 
0002 «00151000« 
01779000 02140000 02730000 02866000 02867000 07869000 04773020 


S 
0069 «01779000 
*01794000*% 01793000 04799000 #01800000%*«01801000% 074803000 
TS 
0077 *02440000x 
*02217050* 02232000 
TS 
0088 «02730000% 
02752000 02761000 02783000 
TS 
01438 «04773020» 
*04773110% 04773420 04773130 *04773430% 04773430 
TSEGSZ 
0002 «00337000 


019021000 *01021000¥*01051000* 01051000 02988000 05619000 


O) 


C 


TSFGSZ 
0090 *«0298B000* 


«03334000 


TSSED 
0006 *00499970* 


00499285 


TSSEDIT 
0006. «00422255 


00422268 


TSSEDITOG 
0002 *«00169082x 


02269300 
02656100 


TSSEDITS 
0080 *02342010% 


02342040 


TSSMFS 
0006 «00492235 


00422240 


TSSMESA 
0002 *00242220% 


00598050 


TSSMESTOG 
0002 «00169086 


00598050 


TT 
0034 *00915140* 


00945240 
*00915780% 


03331000 


02656400 


00422080 


02277400 
02708;00 


02374060 


00422050 


02269300 


00915760 


03358000 


02708100 


02374055 
03894050 


02426000 


00598050 


02277100 


009145300 


03894060 


02380000 
04406030 


00915320 


04406030 


02401000 
04667500 


04768500 


02414175 
04669500 


05468100 


02426000 
04670100 


02431100 
04768000 


02491600 
05468100 


02492450 


00945600 «009145600« 00915720 *00915720%««00915760% 00915760 
00915800 *00915800% 00916020 «00946020%*«00916080% 00916080 


02492550 


009145780 


C) 


© 


Q 


‘Ss 


O 


TV 
0002 «00199100 


00691520 *00692020x 01971500 *01078000* 01080000 


04956040 


TWOD 
0002 «00250000 


%04462000% 01278000 


TWODBIT 
0024 *00653000% 


*00656000 
TWODPRT 
0006 *00398000* 
04138000 
TWODPRTX 
0002 «00148000 
00398000 


TYP 
0006 *05479000» 


05480010 


TYP 
0070 *01822000« 


01829000 
01943000 


TYPC 
0070 *01823000* 


01838000 


TYPE 
0002 «00162000 


01079000 
05067 380 
*05431000% 


04956400 


00672000 


03114000 


04830000 
01944000 


01844000 


02099000 
05069400 
05131000 


04956200 


01309000 


03719000 04136000 


03123000 *04138000* 04138000 


01856000 
01948000 


04864000 


02032000 
05069200 
05132000 


01896000 01914000 
01949000 
01869000 01889000 


*03389000% 04963000 


05069400 05073000 


05134000 *«05164000* 


01093000 


04155000 


01926000 


01921000 


05067210 
05075000 
05354000 


01119000 


01927000 


01930000 


01122550 *01122600**04493200%«04883350« 


01933000 


01954000 


01935000 


05067280 *05067320* 05067320 


05078000 


05060500 


05083000 


01936000 


05067330 
05107030 


*05480010* 05529660 *055510004#*05558000x 


01940000 


05067370 
05107050 
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TYPE 
0037 


TYPE 
0144 


TYPr 
0154 


*04099000% 


*04034000% 07040000 


*04963000% 
#0498 3000%+#04985000% 04987000 04987400 


*05354000* 
*05359000* 05361000 05371000 


TYPEFIXED 


0009 


TYPES 
0002 


TYPIT 
0006 


T! 
0076 


Ti 
0084 


T! 
0090 


*00252000« 


00768000 *01110000%*04 140000%*04144000%%01147000%%04453000% 05076000 


*00234000x 


00723670 00768000 00916300 03392000 


*05479000% 
05480040 05481000 05482000 05483000 


*02064000*% 
02070000 02072000 


*02524000« 


02525000 


*02988000% 


02993000 *03106;25% 03106450 #0 3106150%%0 3106200%«03107000K%0 3458000%%03 
03244000 *03230N004 03232000 *03243000% 03244000 «032470004%03 


03315000 03318000 03325000 03328000 


04993000 *04993000*% 04993540 


184054%*03185000% 03203000 +0324 3000% 
279000«*03299000%%03310000% 03342000 
03331000 *03336000*% 03337000 


O) 


T1 
0121 «04031000 


04209000 04214000 04719000 
Tl 
0152 #05300170x 
*05300190%*053002050« 05300250 
T2 
0084 *02524000% 
02528000 
T2 
0086 *«02631000% 
*¥02652000% 02655000 02663000 
T2 
0424 #04031000% 


04209000 04244000 04749000 
04326000 04344000 04347000 


0072 «01995000 
02006000 «02006000 
UNKNOWN 
0002 +00275000 
00737000 00739000 00739200 
05016000 05071200 05436000 
UNPRINTFD 
0002 «00169083« 
004292275 02053000 02787000 
UNSFEN 
0139 *04787000x 
04790000 


UPARROW 


04257000 


02665000 


04223000 
04367000 


00833000 


02289500 


04278000 


02666000 


04957000 


01109000 


02289600 


04307000 


02669000 


04278000 


01990000 


02363100 


04326000 


02671000 


04294000 


03585000 


02380240 


04347000 


02672000 


04295000 


03598000 


02389600 


04367000 


04296000 


03610000 


02401240 


04297000 


04899000 


02409600 


04307000 


04997000 


a 
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Oo 


© 


O 
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aan 
Ned 


O 


} 


< 
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0005 


VAL 
0078 


VALREQ 
0006 


VARF 
0114 


*00303000% 
02945000 


*00646100* 
00646200 


*00706700% 
00706720 


*00646500% 


00646700 


%*02261500% 


#92967500 402268400 % 


02973800 
02977700 
02285200 


*04020000* 


04078400 *04078100 


*0 3638000 


*03651000x 


*03791000% 


*03806000x 


VARTARLFEDIMS 


0006 


VARID 
0002 


x00707000* 
00723000 


*00277000x 


02274400 
09278000 
02285500 


03656000 


03812000 


00910000 


02269300 
02274700 
02278600 
02285800 


04084000 


03665100 


03827000 


02269600 
02275400 
022799000 
02286100 


*04128000% 


03665400 


03837000 


02269900 
02275300 
02279300 
02286400 


04128000 


03675000 


02270200 
02275600 
09280;00 


04131000 


03676000 


02270500 
02275900 
02280300 


04177000 


03702000 


*x092970800% 02272300 
022976500 02276800 
02284000 02282900 


*041B4200" 04184200 


022729510 
02277400 
02283200 


02272560 
02277400 
02283300 


: C3 


) 


©) 


C) 
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00833000 
01446000 


04090000 


VLU 
0006 *00636000« 


00638000 
VLU 
0078 +02254600x 
02259400 
VLU 
0090 «03084000 
03084000 
VOrpSea@ 
0002 «00169220 
02263900 
VOrnSFa 
0078 «02249500 
02250100 
VOrDTOG 
0002 «00169058 


02263900 


VOID 


IDTSEQ 
0002 +00161010% 
02264800 
VOTDTTOG 
0002 *00169092% 
02264800 


VPHRASE 
0134 *04642510* 


04710500 


00851000 
01988000 
04498000 


03086000 


02279300 


02279700 


02280300 


02280400 


04746750 


00854100 
03803000 


04500600 


03087000 


02419000 


02419000 


02373045 


02373045 


04757400 


00856100 


03880000 


04986000 


02419050 


02396100 


02373100 


04760550 


00871000 00880000 
03920000 03930600 
04987100 05025200 
02416100 

02373200 02396100 


01109000 01134000 01165000 01277000 04307000 


03931000 03936200 03943200 
05029400 05074300 05107100 
02396200 02416100 02446200 


04085000 
95133000 


04089000 
05446000 


VRR 
0134 


VT 
0056 


0006 


0006 


WARN 
0079 


*04656100« 
+047 26520 * 


*01439000* 
*01443000% 


*00415000% 


*01758000% 


01761000 


*01768000x 


01771000 


*02262100% 
02287300 


WARNCOUNT 


0002 


WARNED 
0002 


WB2D 
0046 


WIDTH 


x00242750* 


04732400 «04735740%%04746750% 04747700 


01444900 01450000 01452000 01454000 


01763000 


01773000 


02287600 


00422280 *00422280« 05618100 05618110 


*00169087% 


02431100 


«01237000 


01247000 


05618400 


01249000 


04759150 «04760890 


01469000 


01470000 


01471000 


01481000 


01483000 


01490000 


C} 


) 


G3 


0134 «04655500 


04710000 «04710500%%*04729500%*04735730%404746750% 04757000 


*94760980« 

WOP 
0002 *00183000x 
01200000 

WRAP 
' 0139 «04784000 
04911000 


WRAP 
0155 *05431000* 


WRAPUP 
0006 *02976000% 


03367000 


arm 
— 
MD 


T 
00422120 
00422210 
01232000 
WRITAROW 

0006 «00422100 


00422285 


WRITENATA 
0006 «004718000 


*01093000x 
04934000 


WRITEPGM 
0036 *00947000% 


00949000 *0;000000« 


WSA 


01202000 


04917100 *04950000* 


05613000 


00600050 
01434000 


00598900 


01052000 


01204000 


00600080 
02024000 


01250000 


01633000 


03419000 


00622000 
02972000 


02053000 


04643000 


00735000 
03204000 


02054040 


03105000 


00755000 
03209000 


02380240 


03106210 


04757420 *04757420% 04758410 *04758410% 04758500 


00767000 
03244000 


02389600 


03408000 


-00781000 


03251000 


02401240 


03111000 


01005000 


02409600 


03124000 


01050000 


03260000 


01065000 


03890000 


Gy. © 


Ce 4 


C) 


@ 


OQ) 


() 


O 


0134 


Wi 
0006 


W2 
0006 


We 
0006 


We 


0034 


W3 
0034 


0006 


0007 


0006 


*04654000% 


04680500 
04726530 
04772600 


*00723140% 


00723160 


KOO7T23L40% 
00723280 


*00706525* 


00706530 


*00945180% 


00945240 
00916080 


*00915180% 


009145220 
00916080 


*00400010% 


*00433100* 
00433300 


*00422270% 


00422280 


04684000 
04732000 
04772620 


00723450 


00723450 


0094560 
00916300 


009415940 
00916460 


00600020 


04686000 
04739500 


00796000 


00927000 


00945300 


009145280 


00600040 


04687560 
04740100 


00927000 


00938000 


009145320 


00915300 


00641000 


04687590 
04740440 


00938000 


00939000 


009745420 


00945480 


04687600 
04747400 


00939000 


00945600 


00945600 


04690000 
04748800 


00915720 


00915720 


04692000 04695500 04698000 047419500 


04749400 


00945760 


00915760 


04749800 


00915780 


00945780 


04758500 


00945800 


00915800 


04772000 


00916020 


00946020 
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0006 


0006 


0007 


0006 


0006 


0006 


0052 


0069 


0063 


00714 


*00422255x 
00492260 00422270 00423000 


*00927000% 
00932000 00935000 


*#00426000* 


00429000 


*01364010« 
01364035 *01364035% 


*O4404125% 
04404275 046404350 04404435 04404475 04404600 


*05603110 
05603120 05603130 


*01407000# 
*#01415000% 01426000 


*01779000% 
*01800000% 01801000 01802000 


*01706100x% 
*01708400% 01733100 


«01963000 
*01973000e 041974000 01974500 01984000 01985000 


01987100 


01988000 *01988000% 
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GO 


C) 


0112 


0120 


XCH 
0002 


XreR 


0084 


XFERA 
0084 


*03574100% 
*03607000% 


*03993000% 
*04007000% 


*05529120* 
05529140 


*00326000* 
01318000 
03779000 
03990555 


04260010 
04318000 


*025294000% 
02530000 


*02531000 
02539000 


XGLOBALS 


0009 


XHEDB 
0004 


XHFDF 
0004 


*00169098% 


00706300 


*00333090x« 
01018140 


*00333070% 
01018170 


03607400 


04008000 


05529950 


01340000 
03904400 
04028030 
04263000 
04349020 


02577000 


02587000 


01018410 


04011000 


05529420 


01343000 


03928000 
04028040 
04282040 
04349030 


02597000 


05529620 


01486000 
03934000 
04152000 
04284000 
04329010 


05529635 


01489000 
03936400 
04162000 
04289005 
04332000 


*05529820% 


01496000 
03943300 
04165000 
04294040 
04339040 


01498000 
03990280 
04199000 
04292010 
04404350 


01507000 
03990340 
042935000 
04299000 
04993550 


03751000 
03990360 
04240000 
04300000 
04993590 


03754000 
03990440 
04245300 
04341000 
05372000 


03776000 
03990480 
04248000 
04343000 


4 } 
> 
4 


C) 


G) 


C) 


O) 


XHEOG 
0004 


XHE NM 
0004 


XHEDS 
0004 


X1T 
00092 


XT 
0028 


XT 
0023 


XT 
0044 


X1T 
0049 


XtT 
0040 


*00333080% 
01018150 


*00333050* 
01048240 


*00333060% 
01948200 


*00327000« 


00676000 
01785000 
02607000 
04406020 
05300160 


00710000 
01824900 
02632000 
04488000 
05302000 


01073000 
01996000 
02682000 
04773020 
05431000 


*00710000% 


00741000 «00722000 


*00676000* 
00697200 *00705000« 


*011297000% 


01167000 *01170000*% 


*0L274000% 


01285000 01298000 *01301000« 


*01073000% 


01074000 *01124000* 


01127000 
02062000 
02728000 
04784000 
05508000 


01274000 
02440000 
02802000 
04964000 
05535040 


01584000 
02245900 
03575000 
05010000 
05537000 


01613000 
02249800 
03635000 
05063620 


01626100 
02333180 
03990040 
05103000 


01706010 
02345000 
03995000 
05138100 


01736000 
02363000 
04021000 
05214000 


01744000 
02523000 
04404150 
05232100 


‘s) 


O 


© 


a 


XUT 
0058 


XIT 
0064 


XT 
006; 


X1T 
0060 


X1T 
0063 


XIT 
0069 


X1T 
0065 


X1T 
0072 


XT 
0078 


X1T 


*01584000* 
01587000 01588300 «01595000 


401736000 
01739000 #01741000x 


*016296100% 
01629000 #04654400% 


*04613000% 
01648000 *01622000% 


*01706010% 
01708000 *01733;405« 


#01785000« 


01789000 01791400 «*01813000* 


*01744000« 
01747000 «01749000 


*#01996000» 
02002000 *02012000« 


*09945900» 
02246900 092747000 0292747400 02248600 


0076 


XIT 
0076 


XIT 
0076 


XIT 
0070 


XIT 
0077 


XIT 
0078 


XTT 
0080 


XIT 
0084 


XT 
0084 


XyT 
0087 


*02064000% 


02068000 


*#02077200% 
02077400 


*02062000% 
02064000 


*01824000 


01944000 *04950000% 


#02140000« 
02181000 


*022469800% 
02253100 


*02345000% 


02357000 


*02802000+ 
02827300 


02901000 
02948000 


*#02523000% 
09559000 


*026829000* 


02076000 


02077700 


02077200 


02185000 


02254000 


02359000 


02828000 
02920000 
02949000 


02560000 


02080000 


02185010 


02830000 
02924100 
02950000 


02560400 


02089000 


02192000 


02843000 
02926000 
02952000 


02569000 


02093000 *02116000x 


02194000 


02847000 
02930000 
02961000 


02573000 


02199000 ¥*02240000% 


02849000 
02931000 
02963000 


02589000 


02860000 
02939000 
02964000 


02593000 


02862600 
02943000 
02966000 


#02609000* 


02884000 
02945000 
*02971000% 


02899000 
02946000 


02900000 
02947000 


C) 


C) 


XT. 
0088 


XIT 
0086 


XIT 
0080 


XIT 
0087 


XtT 
0085 


X1T 
0080 


XIT 
0116 


X1T 
0112 


XIT 
0113 


X1T 


02686000 02707500 02711000 *02724000* 


*02728000* 
02733500 02739000 02743000 


*02632000« 


02655500 02660000 *02677000« 


*02333180% 
02333260 02333300 02333320 


#02686000« 
02693000 02695000 02697000 


*02607000# 
02621000 02622000 02622100 


*02363000% 
02376000 *02430000™ 


*03990040« 
03990090 03990105 03990124 


*03575000« 
03588000 03594900 03603000 


*03635000« 


03648000 *03784000x 


02746000 02747000 02775000 


02333500 


02623100 «02627000* 


03990136 03990200 *«03990810x 


03614000 %036148000% 


02778100 


02788000 *02799000* 


ce © 


O 


ey 


QO 


Q 


© 


0120 


X1T 
0121 


XIT 
0129 


XIT 
0130 


X1T 
0132 


XIT 
0138 


XIT 
0139 


XIT 
0132 


XIT 
0146 


X{T 
0148 


*03995000x 
03996050 


¥04021000« 
04078000 


*04404150% 
04404200 


*04406020% 


04415100 


*04488200x% 
04488400 


*04773020x 


04773040 


*04784000% 
04788000 


04947000 *04957000x 


*04488000% 
04488200 


#05103000« 


05106000 *05124000« 


*05138100* 


04005000 


04093000 


04404950 


04415410 


04488500 


04773090 


04813000 


04493000 


*04018000 

04106000 04121000 04129000 
*04404675« 

04415130 04415160 *04427010» 
04581000 

04773100 *04773180% 

04836000 04858000 04883100 


04498200 04562000 04571000 


04153000 04186000 


} 


04883700 04904000 


04574000 *04578000*« 


04204000 


04909000 


04208100 


04945000 


04212000 «04395000« 


0491841400 


04931000 


Cc} 


CO) 


() 


XIT 
0140 


X{T 
0144 


XIT 
0144 


XIT 
0142 


X1T 
0153 


XIT 
0158 


XIT 
0152 


XIT 
0159 


XIT 
O15! 


XIT 


05141000 


*04788000« 


04796000 


*05063620% 


*05063625* 


*04964000% 
04969000 


*#0501;0000« 
05047050 


*05302000« 
05309000 


*05535040% 
05535090 


*05300160* 
05300180 


*05537000« 


05578000 *05602000« 


*#05232100% 
05237000 


05144000 *05147100% 


04802000 


05063680 


04975000 


05027000 


05319000 


05535410 


05300920 


05243000 


*04811000* 


+#05005000% 


05028040 


05326000 


05535225 


05300240 


05262000 


05038000 


05330000 


05535235 


05300260 


05282000 


05051100 #05062000« 


05332000 *05350000* 


05535450 


*#05300300« 


*05287100* 


05535570 «05535605 


e 


‘S 


‘ ‘ 
se 


C3 


Ce 


0155 *05431000% 


XITCONE 
0156 


XPHASF 
0134 


XR 
0002 


XR 
0006 


XR 
0006 


XRBUFF 
0002 


XRBUFFD 
0002 


XRFF 
0002 


XRFFCOR 


05435000 05444000 
*¥05497000% 
*05507000%*05508000% 
*#04648500« 

O4747400 04749000 
*00185100*« 

00706260 007062780 
*007067 30% 

00706735 00706800 
*00706010«% 

00706020 00706075 
*00169320% 

00169330 00392700 
1Vv3 : 
*00169320 

00706340 00706780 
*£00169030« 

01048355 01588400 

04417100 04126700 

04965100 04987100 

05177100 05243700 

05535250 05535540 
FSORT 


05448000 


05514000 


04749200 


00706300 


00706120 


00392800 


00915360 


01812100 
04415165 
05017055 
05297300 


05451200 *05465000« 


05518000 


00706450 


00706150 


00706350 


01977100 
04417100 
05025100 
05313200 


01018160 


00706780 


019871400 
04500655 
05029200 
05391200 


010148170 


00915360 


01018180 


00915520 


01018490 


01018125 


01018200 


02188100 *02270500*+*02282900% 03990134 


04535500 
05069300 
05397200 


04604040 
05071100 


05403200 


04679400 


051417100 
05442500 


04773175 
05141500 


05447500 


03394100 


04082100 
04800100 
05144100 
05521200 


04114050 
04873000 
05168100 
05535120 


O 


©) 


es: 


0006 


XREFF 
0006 


XRFEFG 
0006 


XR] 
0002 


XRRY 
0009 


XRT 
0002 


XTA 
0002 


*00915100« 
00916480 01018340 


#£00392700% 
00706350 00706780 009354290 01018125 01018140 01018160 01018350 


*00392800« 
00706300 00706735 01018150 


*00185100* 


00706340 00706350 00706450 *00706450% 00706750 «00706760% 009145160 00945480 00915360 009145520 00916120 
*00946460% 01018330 «01021957 


*00169330% 
00706350 00706360 00706380 00706450 00706780 . 00706800 00945420 009345480 01048425 


*#00325000« 
01296000 01372000 01564000 01576000 01662500 


*00179000% 


00598040 00598760 «00682000%«00702000%«00705100% 00723610 *00723720%«00751000««00834000%«00899000% 00916180 
#009 16400 «400949200 %401018260%4011020004401445000%401517000%*01586000%*0 1620000%«01628000%%«01788000%%01971000« 
01971010 *0498000044019890004402083100%%02152000%402154000% 02168000 «02178000% 02185000 02185010 02486000 
02188100 02203000 02207000 02208000 02209000 02210000 02211000 02212000 02213000 02214000 02214100 
02214500 02215000 02217100 02217250 022147275 02217350 02218000 02220000 022271000 02222000 02223000 
02224000 02225000 02226000 02227000 02230000 02230040 02230060 02230415 02230120 07230130 02230140 
02230200 02231000 02232000 02233000 02234000 *02236000 «022936010 #«02236020%%«02237024 **02237050%%02364130% 
*92380175 44024014 754%%024 142004025060 30 %%0 2559000440259 3000 « «0 2655500 x0 2707500 %%0 27 39000 % «0 2749000%%0275 2000» 
02752000 *02775000%%02778100%%02782000*% 02783000 *02783000 %%*02788000**0 2818030 **0 2827 400 **0 2864000 **«02866000% 
02866000 «02869000% 02869000 «02925100 *%02965000 «40297 4000%«03148000x 03150000 *03150000% 03151000 034352000 
#03227000%*0 3233000 %%03262000«%0 358 1000%%03618100%«0 3648000%%0 3669000 %0 367 3000k x0 38240000 3894000% 03894060 
*«03965000%«03978000% 03984000 03990440 #03990 165%+03990195%+*04086000*404415120% 04445165 04417100 *04425000« 
#944 33000 **0 4445000 404445200 %%0 4459000 x0 4466000 %404467000%%04496000% 04500655 04500750 *04537000%%04569000% 
«94603000 4404677500 %%04680700% 04684004 404681004% 04708520 *04708520%%04708530% 04708530 *04730120% 04730120 
*04730140% 04730440 *04761000% 04768500 «0477 3050%«04795000 «+048 10000%*04904000% 04990000 *05017010%**05024000% 
#05070000% 05074900 *05130150« 05144100 «05250000 **05 262300 %**05266000«+#05270100%«05279000e 05313200 +05439000« 

*#0546710044#05499410«e 05535120 05535250 05535540 «056127200 


Cl fy) © Oo. @ . 


() 


CE OS <9 


Or “9 


Ce 


QO) 


O 


0006 


0002 


0006 


ZF 


0134 


ZP 1 
0002 


LABEL 


*02158000* 
02160000 02163000 


*00927000* 


00932300 


*00151000% 


01407000 *04001000*% 04002000 #05168000*«05174000%**05177000% 05183000 05187000 


*01253000% 
041260000 


*0¢407000% 


04408100 *04426650* 


*#04656500% 


#04708000%04722500% 04725550 *04727500* 04733500 04735715 04744100 *04744110% 04758000 04762510 *04764000* 


*00327000* 


OPROGRAMOLISTINGOOL77202CC USER=SITE 


3 COMPILE FORTRAN/DISK WITH ALGOL LIBRARYSALGOL STACK=100 ALGOL 


/FORTRAN 


we! 


* y 


aye ae tare ‘eh vl en oo 


QUSER = SITF 
PACKFT | 9 
op OF, : : 
ie INPUT 324 CARDS FROM CRA e 
TIME 1103 
DATE 77202 THURSDAY» 07/21/77 


*k* BURROUGHS B5700 DCMCP MARK XV1,0.73 ANn INTRINSICS MARK XV1_0,00 ¥¥* 


#NO MESSAGES TODAY 


PUSERS SITE 
PEXECUTE PATCH/MERGE 
PNATA CARD 


PEND, 


StPATCH/MERGE= 1 BOU 1103 02/06/75 

CDA IN CARDSPATCH/MERGES= 1 

PBp0003 OUT O14 LINESPATCH/MERGE= 1 

DKA OUT SER MASTERF SITESPATCH/MERGES 1 
DKA IN SFR PATCH FORTRAN!?PATCH/MERGES 1 
DKA OUT SER CARD0O01 FORTRAN? PATCH/MERGES 14 
DKA LOK CARDOO, FORTRANSPATCH/MERGF= 1 
DKA IN SER CARDO0, FORTRAN?PATCH/MERGES 1 
DKA OUT SER CONTROL SITE#PATCH/MERGES 1 
DKA REL, PATCH FORTRANSPATCH/MERGES 1 

CDA REI, CARDIPATCH/MERGE= 1 


DKA LOk CARDOOY FORTRAN!PATCH/MERGES= 1 


cc USER=SITE; 

COMPILE FORTRAN/DISK WITH ALGOL LIBRARY? 
ALGOL STACK=40003 

ALGOL FILE TaPESSYMBOL/FORTRAN piSk SERIALS 
cORFG=120003 

FILE LINESLINE PRINT OR BACK UP3 

ALGOL FILE CARDsCARNOO4/FORTRAN SERIAL? 
ALGOL FILE CARD=CARDOO4/FORTRAN SERIAL? 


END 


4tALGOI/SFORTRANS 9 BOU 1103 03/17/75 
PBDO003 REL O14 LINE SS5!pPATCH/MERGES 1 

DKA RE}, CONTROL SITESPATCH/MERGE= 4 

DKA RE}, MASTERF SITESPATCH/MERGE= 1 

DKA IN SER CARDOO1 FORTRANSALGOL/FORTRAN= 2 
PATCH/MERGE= 1 EOQJ 1103 

FOR PATCH/MERGE= 1% PST= 16 10T= 21 PRO= 14 
DKA IN SER SYMBOL FORTRANSALGOL/FORTRANS> 2 
PBRD0003 OUT 021 PROGRAM LISTING? ALGOL/FORTRANS 2 
OKA OUT SER DSKL SITESALGOL/FORTRAN= 2 

DKA OUT SER DSK2 SITEIALGOL/FORTRAN= 2 

DKA OUT RnNM FORTRAN DISKtALGOL/FORTRAN= 2 
OKA LOK FORTRAN OTSKSALGOL/FORTRANs 2 

DKA REL cCARDOOL FORTRANFALGOL/FORTRAN= 2 
pKa REL SYMBOL FORTRANSALGOL/FORTRAN= 2 


. wig gien® 


eK 


Ue ety gare 


CG 


O 


) 


CF. YOr Bae VG 


> s@r @ 


O 


} 


Cy. 4 3 : 


O 


OKA 
DKA 
MKA 
DKA 
DKA 
DKA 
DKA 
DKA 
DKA 
DKA 


OUT 
Our 
REL, 
REL, 
OUT 
OUT 
REL 
REL 
REL 
REL 


PBN0003 
ALGOL/FORTRANS 2 FOU 1115 


FOR ALGOL/FORTRAN= 23 


SFR DSRT1 SITESALGOL/FORTR 
SFR OSRT2 SITEtALGOL/FORTR 
NSRT1 StTrsALGOL/FORTRAN= 
DSRT2 SITFIALGOL/FORTRANS 2 
SFR DSRT1 SITEMALGOL/FORTRA 
SFR DSRT2 SITELALGOL/FORTRA 
DSRT4 SITELALGOL/FORTRANS 2 
DSRT2 SITEFALGOL/FORTRANe= 2 
NSK2 SITTESALGOL/FORTRAN= 2 
DSK4{ SITELALGOL/FORTRAN= 2 


A 
A 
2 


REL O21 PROGRAM LISTING 17882tALGOL/FORTRANS 2 


PKT#O002 REMOVED 


PST= 582 10T= 295 PRO= 126 


C) 


C 


C3 


C) 


©) 


OF 3 


O 


C) 


LABEL OO0000000LINE OO1772027EXECUTE PATCH/MERGE 


BURROUGHS R®5700 PATCH/MERGE PROGRAM MARK XV1,0,00 THURSDAY» O7/21/77>5 


BOR Ka ef ek YNPUT 


$@ CARD LIST! CONFLICTS MERGE ZIPARRAY 
$, 32 PATCHES FOR FORTRAN,XVI 


CARD INPUT IS CARD 
PATCHES/FORTRAN 1S NOT ON DISK 
PATCH /FORTRAN WILL BE MERGED 


S*COMPILE FORTRAN/DISK WITH ALGOL LIBRARY 

S*ALGOL STACK = 1000 

S*ALGOL FILE TAPE = SYMROL/FORTRAN DISK SERIAL 

S*cORF = 12000 

$* FILE LINge = LINe PRINT OR BACK UP 

$* DATA CARD ; 

$° **ke* THIS LISTING SHOWS PATCHES IMPLFMENTFD AT UCSC *x#ex 
SRESET LIST SET TAPE ; 

$SET LISTA StNGbLe PRT XRF 


S#PaTcnH NUMBER 101 FOR FORTRAN CONTAINS f£ CARN 


VRB t= ASK t= LISTEL t= TRUEF GO ROUNDS 04735740 
$$! TurS PATCH CORRECTS AN FORMAT ERROR YF THE ONLY LIST ITEM 
$$ REQUTREN WAS FOR A VARYABLE FORMAT PHRASE, 
BRO RIO ORR RRR OOO OII OR ORR RRR RIOR RIE ROOK IIR i ORR RK RR gk oak gO 4 ae ok 


S#PATCH NUMBER 102 FOR FORTRAN CONTAINS 2 CARDS 
IF NTAPTOG THEN BEGIN CLOSECTAPE)#%CLOSE TAPE BEFORE NEWTAPE 03366100 
LOCKCNEWTAPEs*)% ENDS 03366200 


$$ THIS PATCH WILL ALLOW THE NEW TAPE FILE TO HAVE THE SAME MFID AND 
$3 FID AS THE TAPE FILE. 


S#PATCH NUMBER 103 FOR FORTRAN CONTAINS 7 CARDS, 


tr T# FQUL AND T# NE@L THEN FLAG(54) 04245000 


oe) 


vueVD,U 


vu 


vVVvVy UV 


101 


101 
101 
101 
101 


102 
102 
102 


102 
102 


193 


103 


11803 AM, 


PATCH 


ee Nee ok ake ak oa kN ok Rafe koe a ak ROR A kc ae kee i ake ake eRe de ate ake cok fe ae ike ok a ok ok Rik kak RK kok ok ok fe ok ok ak ok kok 


/MERGE 


C} 


Cr 


O 


$f 
$4 
$4 
+] 
$3 
$4 
$4 
gt 
$t 
$1 
Bt 
$8 


ELSE 
BFatN 
EPC9eSTO)$ FOCXCHIS EOLC9)! EOCT)I 
EP¢9,STD D3 FOCTIA FOLCI)DS 
Tecyr Te=rQub THEN LND ELSE LORDS CODE*O3 


ENn3 
BY Krk 
DATE 7/16/74 
TR 2413 


THIS PATCH WILL ALLOW THE USE OF COMPLEX EXPRESSIONS IN THE 
LOGICAL tF STATEMENT ANN YN LOGICAL STATEMENTS IN GENERAL, 
THE £9. AND NE. OPERATORS CAN NOW BE USED TO COMPARE TWO 
LOGICAL tTEMS, 

SYNTAX EXAMPLES? 

COMPLEX Ciec2 

LOGICAL Li 

Iecel ,FQ, C2) GO To 1000 

Lis Ci .NE, C2 


S$#PaTCH NUMBER 104 FOR FORTRAN CONTAINS 1 CARN, 


S# 


IF A.CLASS GFQ@ 13 THEN FLAGC34) FLSE 

BY DND 

DATE 8/29/74 : 

THIS PATCH WILL PREVENT THE FORTRAN COMPILER FROM BEING nSeFD 
DUp TO AN INVALID INNEX WHEN THe COMPILYNG PROGRAM 

REFERS TO A VARIABLE IN AN INCONSISTENT MANNER, THE COMPILER 
WILL NOW FLAG THE CONDITION WITH AN ERROR MESSAGE, 


PATCH NIMBER 405 FOR FORTRAN CONTAINS 2 CARDS, 


IF INF. SUBCLASS2DOUBTYRE AND CLEVARID THEN FMINUS#FPMINUSe] 3 


IF INF, SUBCLASS2DOUBTYPE AND CLeVARID THEN 
BY KFK 
DATE 11731/74 . 
THIS PATCH CORRECTS aN FRROR THe OCCURS IF A COMPLEX OR 
DOUBLE PRECrSTON FUNCTION 3S PASSED AS A PARAMETFR 
TO A FUNCTION OR SUBROUTINE, THe PROGRAM COULD GET 


DS*EN FOR INVALID INDEX OR STACK OVERFLOW AND SOMETIMES SYSTEM HANGS 


COULD occUR, 


S#PATCH NUMBER 106 FOR FORTRAN CONTAINS 2 CARDS~ 


$3 
$4 
$i 


ENn3 
Ip NPARMS > O THEN 
THYS PATCH FLIMINATES SOME GARBAGE ON THE SYMBOL FILE 
BY DMD 
3/4/75 


04245100 
04245200 
04245300 
04245400 
04245500 
04245600 


041130500 


00854100 
00856100 


00813000 
00816000 


vV VVV BV VV VV VUeV VV VU US 


vuouuvUVVV.TVD me 


vv DUD im?) 


103 
103 
103 
103 
103 
103 
103 
103 
103 
103 
193 
193 
103 
103 
103 
103 
103 
103 


104 


104 
104 
104 
104 
104 
104 
104 


105 


105 
105 
105 
105 
105 
105 


105’ 


105 
105 


106 


106 
106 
106 
106 
106 


O O © € 


C} 


(Cae oe © ee © ee © ee © ee 


O 


Nor 


©) 


BOR OR RIOR IR ROR IORI IOI OR IOI IR GOR RR IR OG II IOIGR IOI ICICI IOI I IOI ak ake 


$#PATCH NUMBER 107 FOR FORTRAN CONTAINS 1 CARD, 


BUF « SCANINCCBUF SID, RESULT s051)3 
$t THrS PATCH WILL CORRECT A PROBLEM WITH "S$ tNCLUDE™ NOT WORKING, 
$% BY DND 
$Y .DATE 12/27/74 


02364420 


BOI IG OIG IOI IOI ISI IOC IORI IDG IGIOI I IG ka OR I i I a fete 


S#PATCH NUMBER 108 FOR FORTRAN CONTAINS 1 CARD 


1F A > REALTYPE OR B > REALTYPE THEN 
$SBY KFK 
SIDATE 2/8/75 
SISOFTWARE FLASH # 
$i THYS CHANGE WrLb ALLOW THe FORTRAN COMPyLeR TO CORRECTLY SYNTAX 
S$tcALLS ON FUNCTYON STATEMENTS, WITHOUT THrS PATCH THE COMPILER 
SewOUurD NOT GIVE A SYNTAX FRROR {YF THE ACTUAL PARAMETER IS A DOUBLE 
SIPRECISION VARTABLE ANN THE FORMAL PARAMETER 1£S A REAL VARTABLEs 
SsTHUS THE STACK WoULD BE SET Up WRONG AND THE oByECT PROGRAM COULD 
$1BE DSmED FoR INVALID ADDRESS oR STACK OVERF!,OW*e AND SOMETIMES 
StSYSTEM HALTS CoULD HAPPEN, ALSO IF A REAL VARIABLE WERE PASSED 


$tToO A INTEGER FORMAL PARAMETER AN INVALID SYnTAX ERROR WOULD BE GIVEN, 


$4 NoTEs THE FoRMAL PARAMETERS» SOMETIMES CALLED DUMMY VARIABLES 
$¥CAN BE GIVEN A TYPE» oTHER THAN THE DEFAULT TYPE BY 

S$tREFERENCE TO THEM IN a TYPE DECLARATIVE STATEMENT OR AN 

SEIMPLICIT TYPE STATEMENT, 


SEEXAMPLES 

$t REAL «8 XeFe B IN THES EXAMPLE THE DOUBLE PRECISION 
$4 FOX) 3 X«X FUNCTION F HAS ONE DOUBLE PRECISION 

$4 A = SNGLCFCB)) PARAMETER B, 

$f STOP 

Bt END 


03977000 
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$#PATCH NUMBFR 109 FOR FORTRAN CONTAINS 7 CARDS, 


BOOLEAN VARF. SINGLFTOG? 
IF LtNK < 0 THEN BEGIN SINGLETOG + TRUES LENK © ABSCLINK) FNDS 
Ip NOT SINGLETOG. ANn tNraeSUBCLASS > LOGTyPr THFN 
BEGIN LENGTH « 2 x LENGTHS BOUNDS «+ TRUE ENDS 
BOOLEAN DOUBLEDs SINGLETOGS 
~SENGLETOG « TRUES 
FXq « TF SINGLFTOG THEN #FNEXT ELSE FNEXT? 
$9BY DDD MSA@CENTRAL 
SIDATE o/¢a/75 
$3THIS PATCH CORRECTS A PROBLEM IN THE IMPLEMENTATION 


03791000 
03799500 
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$! OF THE IMPLICIT CONSTRUCT, 
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S#PATCH NUMBER 110 FOR FORTRAN CONTAINS 2 CARDS, 


1F NOTCLASTNEXT#42 OR LASTNEXT=1000 OR LASTNEXT=30 05529130 
OR LASTNEXT=16 OR LASTNEXT = 11) 05529131 
$# DDD 
$& 3/2/75 


$1 THIS PATCH ALLOWS SURROUTINES TO BE PLACED BrFORF IMPLICIT STATEMENTS 
St THAT ARE DECLARED IN THr MAIN PROGRAM, 
SESS SSS PLE LCL. Se eee Lee eee ee eee Ss ee Lee eee Pe ee eee. ee ee Se se 2 2 ee se 2 ee) 


S$#PATCH NUMBER 14174 FOR FORTRAN CONTAINS 5 CARDS: JTLLEGAL * +N RUN=TIME EDITING 
$4 CORRECTS THE ERROR MESSAGE PRINTED WHEN AN ASTERISK IS USED IMPROPERLY AS 


$% PART OF A FORMAT PHRASE. 
$: BY ARO » MSA CENTRAL SOFTWARE Fy.ASH 169 
183 ILLEGAL USE oF ASTERISK FOR RUN®TIME EDITING 00143043 
"ILLEGAL "s"USE OF A™e*STERISK "e"FOR RUN@"etTIME EDI"e"TING ", 00596535 
BEGIN FLAGC183) 3 04708515 
IF ZF OR DECIMAL NEQ O THEN FLAGC183)3 DECIMAL3=40953 04735715 
END ELSE BEGIN DECIMAL!=4095}3 FLAGC183)3 GO FL END 3 04735750 
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S#PATCH NUMBFR 112 FOR FORTRAN CONTAINS 14 CARDS, EXTRA OR MISSING “END” STMTS, 


THe FOLLOWING PATCH CORRECTS THF HANDLING OF MULTIPLE "END STATEMENTS, 
PReVrOUSLY» ALL THE REGULAR END*OFeSEGMENT PROCESSING WAS DONE ON 

SUPERFLUOUS "FNDSS, THrS COULD CAUSE A "DrC ERRORY AND AN ABORTED COMPILE IF 
A CROSS REFERENCE WAS REQUESTED. NOW A MESSAGE +S PRINTED AND NO END@0F= 
SEGMENT PROCESSING tS DONE FOR SUPERFLUOUS "ENDYS, THYS PATCH ALSO CORRECTS 


$1 THE HANDLING OF MISStNG "END® STATEMENTS, 
$1 BY ARO = MSA CENTRAL SOFTWARE F),ASH 470 

184 NO PROGRAM UNIT FoR THIS END STATEMENT 00143044 
"NO PROGR stAM UNIT "etFoR THIS"et END STA%e"TEMENT ‘tel? 9 00596536 
IF SPLINK NEQ@ 9 THEN BEGIN FLAG(5)3 ENDS? SEGMENTSTART? ENDS 05128000 
IF SPLINK NEQ 9 THEN BEGIN FLAG(C5)3 ENDSS SEGMENTSTARTS END$ 05151000 
IF SpLINK=0 THEN FLAGC184) ELSE 05212005 
REGIN 05212007 
END} 05216000 
IF SPLINK NEQ 0 THEN BEGIN FLAGC5)s ENDS$3 SEGMENTSTARTS ENDS 05532000 
BOOLEAN ENDTOGS ; 05537200 
BEGIN ENDSS ENDTOG#=TRUES SCAN END3 05553000 
IF NOT ENDTOG THEN IF SPLINK=0 THEN SPLINKi=t3 05579000 
ENDTOGISFALSE} - 05579100 
IF NOT ENDSEGTOG THEN IF SPLINK NEQ 0 05612100 
THEN BEGIN XTAt=BLANKSS FLAGC5)3 ENDS ENDS 05612200 
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$#PATCH NUMBER 113 FOR FORTRAN CONTAINS 7 CARDS, FIX X¥**I 


$3 
3 
$3 
$4 
$3 
$3 


THE FOLLOWING PATCH CORRECTS THE CODE GFNERATED FOR X TO THF I POWER» WHERE 
1 +S AN yNTeGER CONSTANT GREATER THAN 1023 WHOSE BYNARY REPRESENTATION ENDS 
tN 2 ZEROES, PReVrOUSLYs AN EXPONENT OVERFLOW OccuRRED, 

BY ARO AND JTC MSA CENTRAL SOFTWARE FLASH 174 

HERIOT#WATT U; PATCH 545 CLAIMS TO FIX BUGS IN THIS PATCH. INVESTIGATE AND 
INSTALL HWU 545, *& *& © *& & & # kK & # & & & & kK kk 


BOOLEAN CNSTSEENLAST; SFOR HANDLING CONSTANT 04025500 
REAL SAVEADR3 ZEXPONENTS 04025600 
CNSTSEENLAST:=FALSE3 04072500 
SAVEADR: SADR: CNSTSEENLASTISTRUES 04178500 
CNSTSEENLAST THEN 04345000 
EXPVaSLINK3 04349000 
At=143 ADRI=SAVEADRS 04350000 
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S#PATCH NUMBFR 114 FOR FORTRAN CONTAINS 5 CARNS,. FIX SVOIDT 


$4 
$3 
$} 
St 


THF FOLLOWING PaTCH fORRECTS A SVOIDT PROBLEM. PREVIOUSLYs THE LAST CARN 
IMAGF IN THE "TAPE” cYLe COULD NOT BE VOIDFD. 
BY ARO # MSA CENTRAL SOFTWARE FLASH 172 
SEF ALSO PATen 115 
YF VOINTTOG THEN tf SEQCHKECRDF9IT,VOIDTSEQ) < 4 02373045 
THEN VOIDTTOG?sFALSE 02373100 
FLSE BEGIN VornTTOGt=FALSEs GO TO STRT# ENDS 02373200 
VOIDTTOGt=FA)SE ELSE BEGIN NEXTCARDS=SEQCHKCTBL912CBL9))3 02446200 
GO To STRT? END; 027416300 


ETE TE TET TCLTTETTCTTTTTTT ETE CTTT TET CLT LT TTTCU TUTTE TTT TTT CTT TET TTT 


SEPATCH NUMBER 115 FOR FORTRAN CONTAINS 3 CARDS, FIX SVOIDT 


THE FOLLOWING PATCH coRRECTS A PROBLEM WHICH CAUSED THE WRONG RECORDS To BE 

VOIDED WHEN THE VOIDING SEQUENCE LIMIT ON THE SVOID OR SVOIDT CARD IMAGE 

WAS LESS THAN 8 DIGITS LONGe NOW THE INTENDED RECORDS ARE VOIDED IN ALL 

CASES, 

BY ARO » MSA CENTRAL SOFTWARE FLASH 173 

SEe ALSO PATCH 1414 ' 
NSeRBLITVO 02252600 
BeSrtaSrels mpeaDrr7ts TALLY taTALL Yet; 02252800 

IF SC LSS "O* THEN JUMP OUT); 02252850 


BOR ROR RRO ROR IGE ROR IOI GIG GI RIGOR OR IOI GIR  IOK kok ak 


$¢ 


PATcH 400 FOR FORTRAN, XV1.0 CONTAINS 9 CARNS, FIX SINCLUNE 
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THrS PATcH CORRECTS THE 8 INCLUNDE HANDLING: THE $ INCLUDE SCANNER 
RETURNED A RESULT OF REQUESTED TYPE INSTEAD OF FOUND TYPE ¢7,£, YOU 
WERE SCANNING FOR A NUMBER THUS YOU GOT A NUMBER), IF A STARTING SEQ 
WAS GIVEN THEN THE ComPILER WOULD INSIST ON A SPECIAL CHARACTER 
FOLLOWED BY A NUMBER, THIS WoUl,D CAUSE pPRoBLEMS IF ONLY THE STARTING 
SEQUENCE WAS SPECIFIED, THE SPECIAL CHARACTER FOUND WOULD BE THE SCAN STOP 
IN CC 73 AND THE NUMBER WOULD BE THE LAST 7 DIGITS OF THE SEQUENCE 
NUMBER» IF THE SEQUENCE NUMBER WERE BLANKe THE COMPILER WOULD CONVERT 
"j " TO DECIMAL aS THE ENDING SEQUENCE NUMBERe IN EITHER CASE» 
THE RESULTS OF SPECIFYING ONLY THE STARTING SEQUENCE NUMBER WERE 
UNPREDICTABLE. 


BY D,Gy WILLMS* 17FER1976 BROCK Us PATCH 400 
IF SC = ALPHA THEN ELSE BEGIN DS#sLIT "1s DrtelDs DSt=2L1T"0"3 02333240 
IF SC LSS "O" THEN DStsLIT "2" ELSE nSseLiT "3"5 02333270 
N ¢pit=103 DSIs8 LIT "0 "} orisdy773 02333280 
M¢ 8 ¢ If SC LSS "O" THEN JUMP OUT 2 TO Las 02333360 
IF SC @TR "9" THEN JUMP OUT 2 TO LQ? 02333370 
SrteSypois TALLYt=TALLY4$1))3 02333380 
IF 1D = "3 " THEN NEWSEQ CINSERTSEQ299999999) 02364605 
FLSF BEGIN 02364610 
END 02364670 
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$# Patcu 501 FOR FORTRAN.XV,.1 CONTAINS 14 GCARnNS, FIX UP & CHANGE S*CARNS 
${ DEFAULT $#=CARD 1S? $CARD LIST SINGLE #@CHECK @PAGE 
$$ SINGLE AND CHECK ALWAYS SET ON A S@CARD AND CAN ONLY BE RESET 
$i BY USING THE EXTENDEN SeCARD RESET# 
$t ALLOW NEW TAPE OPTION TO BE "NEW", "NEWTAPE™, OR "NEW TAPE™ 
$1 BY OGW&GRK»e BROCK U, PATCH 504 
$3 MODIFIED BY DR» UCSC, APRIL 7s 1977 SO THAT THE DEFAULT ACTION IS NOT 
$1 TO CHECK SEQUENCE NUMBERS 
$1 SEE ALSO PATCHES 5141, 5147 
$1 SEE ALSO HERIOT*WATT U, PATCH 702 
TSSMESTOG « VALS TSSEDITOG « VAL? CHECKTOG « VAL3 02269300 
SINGLETOG«NOT VALS HOLTOG+eVAL3 02269600 
PRTOG*VAL# DOLIST*VALS LIBTAPE*VAL3 SEGPTOG*VAL) 02270200 
BEGIN LIBTAPE+VAL? NEWTPTOGeVAL3 NTAPTOG*TRUES 02275100 
1F 1D = "NEW ™ THEN 02275120 
BEGIN 02275140 
GETTDS 02275160 
IF 1M # #TAPE ™ THEN 02275180 
GO TO LPs 02275200 
FNDS 02275220 
END ELSE . 02275240 
1F 1D = "NEWPAR® THEN SEGPTOG « VAL FLSE 02286100 
LISTOGeTRUF3 SINGLETOG.TRUES CHECKTOG + FALSE? DEFAULT 03384000 
SEGPTQ9G « FALSE3 ZINHIBIT PAGE SkIP AFTER SUBROUTINES 03571300 
$# PATCH 502 FOR FORTRANeXVe3 CONTAINS 2 CARDSe CHANGE TAPE LOCK CONDITIONS 
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$$ LOCK TAPE FILE BEFORE NEWTAPE FILE INSTEAD OF CLOSING ONLY IF 
$§ A NEW FILE IS CREATEDs 
$i 0 G WILLMSs 19DEC74 BROCK U, PATCH 502 
LOCKCTAPE)S BRW/L TAPE FILE OR LOCK DISK 
IF NTAPTOG THEN LOCKCNEWTAPE®*)3 ZRW/L TAPF OR CRUNCH DISK 


$# PATCH 503 FOR FORTRAN.XTI CONTAINS 13 CARDS. DEFAULT FILE NAMES ETC 


$% SET FILE 5 TO READER ANN FILE 6 TO BE PRINTER BY DEFAULT 
$t BY KEN WeST | BRocK U, PATCH 503 
LABEL Q@@QnySKpFFAULT? 
QQQDySKDEFAULTS : 
IF INNMe"READER © OR toNMe"FrLeS © THEN ;DNM@MCARD " ELSE 
IF IONMSYFTLE6 © THEN BEGIN [DNMe"PRINTER*SFILTYPe1 8FEND ELSE 
BEGIN 
EMITL¢20)% EMITL¢600)% FILTYPeyas %20 x 600 REC DISK 
JeOR2CA2I4Pt6IB10L 2083681218 30001 883681273 
FID*¢IDNMs MFID*"FORTEMP"s Ti*GITSZCIDNM)3 
GO TO QAQQDISKDEF AULT? 
END; 
ELSE EMITDESCLITCFILECHECKC 4S "s2417xREAL 
ELSE IF N = 2 THEN 
EMITNESCLITCFILECHECKE' 6 "s2417xREAL 
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$# PATCH 510 FOR FORTRANSXTTI CONTAINS 4 CARDS, NO FRR MSG IF NO ERRS 


St 1F NO SPFQUENCE ERRORS THEN LINE 1S BLANKED OUT 
SY FIXES "NUMBER OF SEQUENCE ERRORS* LINE +N cCOMPILFR WRAP UP, 
$t BROCK US PATcH 510 
NnSe32 LyT " my 
NSe32 LT " . Ws ; 
WRITE CRETE SFOCLsFIELNCFRRORCT) sFRRORCTstF SEQERRCT=0 THEN 99 ELSE 


03366100 
03366200 


02997010 
03164045 
03184010 
03184090 
03184030 
03184040 
03184050 
03184054 
03184060 
03184070 
04841000 
04844000 
04845000 


05603081 
05603082 
05617000 


tF ERRORCT>O THEN TF FLAGLASTCERRORBUFF,LASTERR) THEN WRrTECRITEs152 05619050 
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$# PATCH 544 FOR FORTRAN.XVI,0 CONTAINS 6 CARDS: LIST & CARDS 


$1 THIS PATCH CAUSES THE COMPILER To LIST & CARDS» THE $ CARDS WILL BE LISTED 


$: IF LIST oR LISTDOLLAR 18 SET, THE $ CARDS WILL ALSO BE LISTED IF THE 
$% $ CARD IS SETTING LIST FALSE AND THE LIST oPTION WAS PREVIOUSLY SET, 


$1 5S INCLUDE CARDS WILL BE LISTED IF LIST OR LISTOOLLAR IS SPECIFIED, 


$1 THE 8 INCLUDE CARD WILL BE LISTED CIF LIST OR LISTDOLLAR IS SET) IF COPY 


$t 1S SPECIFIED, PREVIOUSLY THE $ INCLUDE CARD WAS NOT LISTED IF COPY 
$1 WAS SPECIFIED, 

St DeGe WILLMSs 19DEC74: REWRITTEN BY DyGe WILLMSe 20AUG75, 

$i BROCK U, PATCH 511 
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$% MODIFIED BY DR» UCSC, MAY 19, 1977 TO ELIMINATE ALL REFERENCES TO "1GNORE" 
$1 SEE ALSO PATCHES 501, 517 
BOOLEAN VALs SAVELISTOG3 02261500 
SAVELISTOG #= LISTOGs 02262775 
IF NOLyST OR LeStOqg OR SAvebrST0G THEN 02289450 
PRyNTCARD3 ZWAS CONDITIONED BY "pOLrsT™ GRK 02289500 
ENn} 02364885 
re LySTOG OR DOLYST THEN PRYNTCARD} 02364890 
BSR OR RII ORO ROI I GIIOGIIIIOIG GOK OKO ROR IOI IGG RK ak ga a Gk Kk ae ak air 


$# PATCH 519 FOR FORTRAN CONTAINS 4 CARD, BETTER CORE ESTIMATE 


$$ PRQDUCE MORE ACCURATE CORE ESTIMATES IF ARRAYS ARE USED 
$3 BY GRK BROCK U, PATCH 512 

LNK %= 2563 XYINCLUDE ENTIRE ARRAY SIZE IN ESTIMATE 01719000 
BBCI IO GIO IGIIO GIORGI I IOI ICR IIOI RIOR IOI IIS ke ak 


$# PATCH 515 FOR FORTRAN CONTAINS 4 CARDe SINGLE SPaCcE COMPILER SUMMARY 


$3 BY GR, KENNEDY OBfER73 BROCK U, PATCH 515 
DEFINE PTR=LINF#H RI TESL INE # + CRECARH#e TP=TAPERS 00391000 
Book OO ROR ROI ORO RIOR iO OGIO GOK kk ROK ak OK dk ok ak eke ORO Oo cok ok 


$# PATCH 517 FOR FORTRAN. XV,1 CONTAINS 5 CARDS, S*CARD FIX 


$1 THrS PAT¢H WILL ALLOW THE COMPYLER TO CORRECTLY HANDLE $ CARDS 
$3 SUCH AS SCARD RESET cHeck, PRIOR TO THrS CHANGE, THE COMPILER 
$: WOULD NOT SET ANY OPTIONS TO THEIR DEFAULT STATUS IF THE FIRST 
$! OPTION WAS "CARD" OR “TAPE AND THE SECOND OpTION WAS "SET® OR "RESET" 
$? THIS PATCH ALSO PREVENTS A DOLLAR CARD WITH AN ILLEGAL CoNSTRUCT FROM 
$$ BEING PRINTED MoRE THAN ONCE. 
$1 BY DaW BROCK Ue PATCH 517 
$} MODIFIED BY Dre UCSC APRIL 6* 19779 TO REMOVE A BROCK Us FEATURE THAT 
$% PERMITTED TRACEs PRT» AND DEBUGN ONLY To SYSTEMS PROGRAMMERS 
$: SEE ALSO PATCHES 501, 511 
TAPETOGsC47211 «© LASTMODE = 23 02265700 
SVOIDT 02267200 02266000 
BEGIN TAPETOG,C47!1J*NOT VALS LASTMODE*2"REALCVAL) END ELSE 02272510 
IF UNPRINTED THEN BEGIN PRINTCARD? UNPRINTED*FALSE END$ 02287000 
IF UNPRINTEn THEN PRINTCARD$ 02289500 


$# PATCH 992 FOR FORTRAN CONTAINS 1 CARD, COMMFNTS 


$$ THTS PATCH MFRELY ANNS COMMENTS TO EXISTING CODE, 
$1 BY DR ucse APRIL 18, 1977 
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tF INea.ClLaSS = FILFIN THEN ¥See COMMENTS ON LyNE 02118000 03144000 


PATCH 993 FOR FORTRAN CONTAINS 94 CARDS, COMMENTS 


THIS PATCH MERELY ADDS ComMMENTS To EXISTING CODE, 


$: BY Dr UCSC APRIL 18° 1977 

GO CASELE*IDINFols 2 SEE INITIALIZATION OF "TIPE™s LINE 03433100 02862800 
Lit ENIGITS 02863000 
L23 % > 02898100 
L33 % > 02899100 
L4% 2 0R + 02900100 
L53 B 4 02910300 
L6: 2% OR ¢ 02929100 
7s B< 02930100 
LB: % LETTER O 02938100 
L943 & % 02942100 
Lids Bx 02943100 
$t Lit 1S ALTERED IN PATCH 990 

L123 } 02946100 
L133: ’ ) OR 02947100 
Li4s %} 02948100 
Lids, Re 02949100 
L163 a Sf 02951100 
Liv: y a) 02960100 
Liss zB # 02962100 
Lig: = OR « OR # 02963100 
L20: % ) 02964100 
Loy? %* OR ¢ OR @ 02965400 
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PATCH 994 FOR FORTRAN CONTAINS 14 CARDS, LABFLS FOR CASES 


THES PATCH INTRODUCES LABFLS ON THE VARIOUS CASES OF A CASE STATEMENT, 
THESE LARELS MERELY wELP IDENTIFY THE CASES TO A HUMAN READER OF THE LISTING. 
THOSF CASES WHICH NEFD LABELS FOR PROGRAMMING PURPOSES ALREADY HAVE BEEN 


$t LABELLED, 

$+ BY DR ucse APRIL 185 1977 

LABEL LOOP, CASESTMT} 02803000 
LABEL CASE9,.CASE1 sCASE2, CASES s CASES s CASES »CASE6,CASFTS 02803100 
LABEL CASES,CASF9O»CASEI Os CASE11 eCASE12sCASF1 3eCASE143 02803200 
CASEOS 02807999 
CASE4! 02827999 
CASE 63 02830999 
CASE73 02833999 
CASEB3 02836999 
CASES: 02837999 
CASE103 02838999 
CASE44: 02839999 
CASE1D3 02840999 
CASE433 02848999 
CASE143 02849999 
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$# PATCH 995 FOR FORTRAN CONTAINS 4 CARDe ELIMINATE DUPLICATE FORWARD REFERENCES 


$3 BY DR ucsc APRIL 18% 1977 
$# LINE 02057000 = LINE 00420000 
$ VOINT 02057000 


$# PATCH 996 FOR FORTRAN CONTAINS 41 CARDS, COMMENTS 


$! THIS PATCH MFRELY AnnS COMMENTS TO EXISTING CODE 
$1 BY DR ucsc APRrL 18, 1977 


DEFINE cE = r2til#, %INFA 90243000 
LAST¢ = (3%1274%, ZINFA 00244000 
SEGNO = £349)#, ZINFA 00245000 
CLASS = 6158514. ZINFA 00246000 
EQ = (2084 #e ZINFA 00246100 
SUBCLASS = (2119398. ZINFA 00247000 
CLASNSUB = [44sinl#s ZINFA 00248000 
ADJ = C14s1)#e ZINFA 00249000 
THON = CLa4st)# ZINFA 00250000 
FORMAL = C1391) #0 ZINFA 00251000 
TYPEFIXED= Li2s1)#e ZINFA 00252000 
ADDR = [24319] #> ZINFA 00253000 
LINK = [36t191]#» ZINFC 00254000 
RASE = FiBsisl#e ZINFC 00255000 
SIZE = £33:15]#, ZINFC 00256000 
BASENSIZES [18:30} #5 ZINFC 00257000 
NEXTRA = [236]#» ZINFC 00258000 
ADINFO = (810T#s ZINFC 00259000 
RELAND = (21315]#>, ZINFA 00260000 
TOCE = 24734 #» ZINFA 00261000 
TOSEGNO = 3:39:08, ZINEA 00262000 
TOLASTC = 31368428, ZINFA 00262100 
TOCLASS = 15%43;:5#, ¥INEA 00263000 
TOFQ = 20347:1#, ZINFA 00263100 
TOSURCL = 21245;:3#, ZINFA 00264000 
TOAnJ = 14847318, ZINFA 00265000 
TOFORMAL = 13947218, ZINFA 00266000 
TOTYPF = 12847318, ZINFA 00267000 
TOADDR = 2433631298» ZINFA 00268000 
TOLINK = 36°36:12#» ZINFC 00269000 
TOBASE = 469335158. ZINFC 00270000 
TOS!IZE = 33933:15%» ZINFC 00271000 
TONEXTRA = 2242%6#s ZINFC 00272000 
TOADINFO = 82388408, ZINFC 00273000 
TORELADD = 21%33:15#, ZINFA 00274000 
STHE FOLLOWING CLASSES APPEAR IN THE 1ST WORD OF FACH 3*WORD ENTRY 00274998 
ZOF THE "INFO" ARRAys AND MAY BE COPIED TO INFA.CLASS, 00274999 

JUNK = {7#, ZNOT A GENUINE CLASS 00290055 
ZTHF FOLLOWING SUBCLASSES APPEAR IN THF 1ST WORD OF SOME 3*WORD 002949986 


ZPENTRIES OF THE "INFO" ARRAYs AND MAY BE COPIED TO INFA.SUBCLASS, 00294999 
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PATCH 997 FOR FORTRAN CONTAINS 5 CARDS, WARNING 

BEWARE ALL YE WHO SEEK HEREING 00001100 

THIS COMPILER 1S A MESS, THE CONCEPTS OF CHARACTER CONVERSION FROM 00004405 

HOLILERITH c= EBCDIC)s SCANNING» AND PARSING ARE NoT CLEARLY SEPARATED 000014140 

In THE COME, FOR EXAyPLE*® PROCEDURE "SCAN" TRIES To Do ALL 3 AT ONCE.00001115 

DAN ROSS uCcSC APRIL 12° 1977 00001120 

PATCH 998 FOR FORTRAN CONTAINS 1 CARDe UNLABELLED PAPER TAPE 

THIS PATCH MAKES "UNITSPAPER” VALID ON A FILE CARDs IT WILL GENERATE A FILE 

PARAMETER BLOCK WITH UNIT#8s WHICH MEANS UNLABELLED PAPER TAPE, INPUT AND 

OUTPUT ARE DISTINGUISHED BY THE FILE NAME» WHICH MUST BE EITHER 

"PRA/PRA" FOR INPUT OR. "PPA/PPAW® FOR OUTPUT, CAUTION? USERS MUST NOT MAKE 

MISTAKES ON FILE CARNS, THE CODE FOR PARSING FILE CARDS IS UNSTABLEs AND IT 

WOULN BE A MAJOR RECODING EFFORT TO MAKE IT STABLE. 

BY DR» UcsCc APRIL 7» 1977 

SEE ALSO HERTOT#=WATT UL PATCH 770 
1F TOG « XTA = "PAPER ™ THEN 8 ELSE 022414100 

PATCH NUMBFR 999 FOR FORTRAN CONTAINS 1 CARDS: PATCH LEVEL 
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BORO OK OK CONFLICTS SIGIR IOI OI OG IGOR IOI IO OR OIC IO IIR SIG ORIG GR GIGI Rk aK 


IF UNPRINTEN THEN PRINTCARD? 
PRINTCARD3 Z4WAS CONDITIONED BY “pOLIsT" GRK 


LOCKCTAPE)$ _ @RW/L TAPE FILE OR LOCK NISK 
IF NTAPTOG THEN BEGIN CLOSFCTAPE)SZCLOSE TAPE BEFORF NEWTAPE 


IF NTAPTOG THEN LOCKCNEWTAPEs *2# ZRW/L TAPF OR CRUNCH DISK 
LOCKCNEWTAPEs*)% END3 


NUMBER OF ERRORS DETECTFD = 0, 
PROCESSOR TrME = 16 SFCONDS, 
1/0 TIME = 18 SECONDS” 


LABE!, OONND0000LINE OO1772OPPEXECUTE PATCH/MERGE 
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511 DISCARDED 
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102 DISCARDED 
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